loocv()函数为啥么有？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

data(iris)
rpart.loocv <- function(form,train,test,...) {
   require(rpart,quietly=T)
   m <- rpart(form,train,...)
   p <- predict(m,test,type='class ')
   c(accuracy=ifelse(p == resp(form,test),100,0))
}
exp <- loocv(learner('rpart.loocv',list()),
   dataset(Species~.,iris),
   loocvSettings(seed=1234,verbose=F))
summary(exp)

这个程序运转结果：
> data(iris)
> rpart.loocv <- function(form,train,test,...) {
+    require(rpart,quietly=T)
+    m <- rpart(form,train,...)
+    p <- predict(m,test,type='class ')
+    c(accuracy=ifelse(p == resp(form,test),100,0))
+  }
> exp <- loocv(learner('rpart.loocv',list()),
+    dataset(Species~.,iris),
+    loocvSettings(seed=1234,verbose=F))
错误: 没有"loocv"这个函数
> summary(exp)
错误于object[[i]] : 类别为'builtin'的对象不可以取子集

请问大侠，这是为什么？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：rpart Data PART ART RIS

"loocv"这个函数在DMwR包里，有木有加载～