В trainControl
вам не нужно указывать данные. В функции train
вы должны указать такие данные, как
#Model training
set.seed(308)
rand_search <- train(Effort ~ ., data = train1 ,
method = "svmRadial",
## Create 20 random parameter values
tuneLength = 20,
metric = "RMSE",
preProc = c("center", "scale"),
trControl = rand_ctrl)
, а test1
следует использовать для прогнозирования, например,
#For calibration
models_cal <- predict(rand_search, newdata = train1)
#For independent validation
models_val <- predict(rand_search, newdata = test1)