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'的对象不可以取子集

请问大侠，这是为什么？