if (FALSE) {
myControl <- trainControl(method="cv", number=5)
caretList(
Sepal.Length ~ Sepal.Width,
head(iris, 50),
methodList=c("glm", "lm"),
trControl=myControl
)
caretList(
Sepal.Length ~ Sepal.Width,
head(iris, 50), methodList=c("lm"),
tuneList=list(
nnet=caretModelSpec(method="nnet", trace=FALSE, tuneLength=1)
),
trControl=myControl
)
}
Run the code above in your browser using DataLab