## Not run:
#
# data("dystrophy")
# library("rpart")
# errorest(Class~CK+H~AGE+PK+LD, data = dystrophy, model = inbagg,
# pFUN = list(list(model = lm, predict = mypredict.lm), list(model = rpart)),
# ns = 0.75, estimator = "cv")
# ## End(Not run)
Run the code above in your browser using DataLab