data(GlaucomaM)
errorest(Class ~ ., data=GlaucomaM, model=rpart,
predict=function(obj, newdata)
predict(obj, newdata, type="class"),
control=rpart.control(xval=0))
glbagg <- bagging(Class ~ ., data=GlaucomaM, coob=TRUE)
glbagg
Run the code above in your browser using DataLab