if (FALSE) {
set.seed(42)
library("rpart")
models <- caretList(
x=iris[1:100,1:2],
y=iris[1:100,3],
trControl=trainControl(method="cv"),
methodList=c("rpart", "glm")
)
meta_model <- caretStack(models, method="lm", trControl=trainControl(method="cv"))
dotplot.caretStack(meta_model)
}
Run the code above in your browser using DataLab