Блог

Я пытаюсь выбрать степени свободы естественного сплайна с повторным k-кратным CV, но у меня проблемы с циклами for:

 library(tidyverse)
library(caret)
library(splines)
library(readr)


# Data
SeoulBikeData <- read_csv("SeoulBikeData.csv")

# Train Control 
rep.cv <- trainControl(method="repeatedcv", number=10, repeats = 10)
#

cv.error <- rep(0,10)

for(i in 1:10){
  fit <- train(rented.bike~ns(temperature, df=i),
               data=SeoulBikeData,
               trControl = rep.cv,
               method="lm")
  cv.error[i] <- fit$results$RMSE
}
 

Ошибка: Не удается подмножество столбцов, которые не существуют.
Колонка i не существует.

Как я могу использовать для циклов и функции train() каретки? Спасибо