library(klaR)
rdaFit <- train(Species ~ .,
data = iris,
"rda",
control = trainControl(method = "cv"))
plot(rdaFit, plotType = "line")
plot(rdaFit, plotType = "level")
Run the code above in your browser using DataLab