Ошибка: Переменный «Same_State», «Agent_RegisteredOnWeb», «Agent_EnrolledInEForms», «Agent_PendingPolicyRequestEForm», «Agent_RegisteredForCancelListRep», «Agent_EnrolledInCreditProgram», был определен «Agent_DownPaymentViaCC», «Borrower_RegisteredOnWeb» «Borrower_RegisteredForEForms» с различными типами от припадка.
Я создал файл RDS и пытаюсь загрузить в него новые данные, но он не будет преобразовывать новые данные в факторы, даже если в коде есть преобразователи классов.
#MODEL
data <- read.csv(file.choose(), header=T)
#Converts cancelled into Y vs N
data[data$Cancelled == 0,]$Cancelled <- "N"
$data[data$Cancelled == 1,]$Cancelled <- "Y"
data$Cancelled <- as.factor(data$Cancelled)
#Cleans up data and formats data into desired class
data$Agent_ID <- as.factor(data$Agent_ID)
data$Borrower_ID <- as.factor(data$Borrower_ID )
data$Same_State <- as.factor(data$Same_State )
data$Borrower_EnrolledInEForms <-
as.factor(data$Borrower_EnrolledInEForms)
#GRADING RUBRIC
df_test <- read.csv(file.choose(), header = T)
target_test <- as.factor(df_test$Cancelled)
# 2) Load model from .rds file
model <- readRDS(file = "my_model.rds")
# 3) Fit model to your test data for prediction
pred <- predict(model, df_test, type = 'response')
Ошибка: переменные «Same_State», «Agent_RegisteredOnWeb», «Agent_EnrolledInEForms», «Agent_PendingPolicyRequestEForm», «Agent_RegisteredForCancelListRep», «Agent_EnrolledInCreditProgram», «Agent_EnrolledInCreditProgram», «fit_DownPort_RerowWerWerWerWerWerWer.
Я бы хотел, чтобы данные были преобразованы в коэффициенты.