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='rpart', tuneLength=2)
plot(meta_model)
Run the code above in your browser using DataLab