Перекрестная проверка в R с SVM

Question

Я новичок в R. Я пытаюсь использовать алгоритм SVM для использования в наборе данных регрессии. У меня есть это:

d1 <- read.table("forestfires.csv", sep=",", header=TRUE)

train<-d1[1:465,]
test <-d1[466:517,]

library(e1071)

sapply(train,summary)  

library(caret)
ctrl <- trainControl(method = "cv", savePred=T)
mod <- train(area~., data=d1, method = "svmLinear", trControl = ctrl)

summary(mod)

predict(mod, test)

Это происходит без ошибок. Но я хочу проверить алгоритм. Я попробовал это:

library(crossval)

CVSVMModel = crossval(fit2)
cverror_individual = kfoldLoss(CVSVMmodel,'Mode','individual')

Но я получил эту ошибку:

Error in group.samples(Y) : argument "Y" is missing, with no default`enter code here`

Кто-нибудь знает, что я могу сделать?