R中的交叉验证

Question

我在R中验证数据集时遇到问题.

mypredict.rpart <- function(object, newdata){
                      predict(object, newdata, type = "class")
                   }
res <- errorest(win~., data=df, model = rpart, predict = mypredict.rpart)

我收到这个错误.

predict.rpart(object,newdata,type ="class")中的错误:对rpart对象的预测无效

我的数据集由16个数字属性组成,win有两个因子0和1.您可以在链接上下载数据集

Answer 1

如果你正在进行分类,那win应该是一个因素.

df$win = factor(df$win)

那么你的代码对我有用:

> res

Call:
errorest.data.frame(formula = win ~ ., data = df, model = rpart, 
    predict = mypredict.rpart)

     10-fold cross-validation estimator of misclassification error 

Misclassification error:  0.4844