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')
summary(meta_model)
Run the code above in your browser using DataLab