if (FALSE) {
model_list1 <- caretList(Class ~ .,
data=Sonar, trControl = ctrl1,
tuneList = list(
glm=caretModelSpec(method='glm', family='binomial'),
rpart=caretModelSpec(method='rpart')
),
metric='ROC')
model_list2 <- caretList(Class ~ .,
data=Sonar,
trControl = ctrl1,
tuneList = list(
glm=caretModelSpec(method='rpart'),
rpart=caretModelSpec(method='rf')
),
metric='ROC')
bigList <- c(model_list1, model_list2)
}
Run the code above in your browser using DataLab