Я пытаюсь найти MSPE модели.В моем наборе данных 192 строки, а моя модель - модель временного ряда.Я продолжаю получать сообщение об ошибке: «количество заменяемых элементов не кратно длине замены».Этот трикотаж один раз в R, но не с тех пор.
library(dplyr)
for (i in 1:100){
YX$id <- 1:nrow(YX)
train <- YX %>% dplyr::sample_frac(.8)
test <- dplyr::anti_join(YX, trainr, by = 'id')
fit <- lm(Y ~ Ypast+ seatbelt$month[t]+
seatbelt$year[t] + sin12 + cos12 + kmsperp, data=
train)
ytest <- predict(fit, test)
results[i] <- ((test$Y - ytest )^2)/nrow(test)
}
mean(results)