## Not run:
# library(klaR)
# rdaFit <- train(Species ~ .,
# data = iris,
# method = "rda",
# control = trainControl(method = "cv"))
# plot(rdaFit)
# plot(rdaFit, plotType = "level")
#
# ggplot(rdaFit) + theme_bw()
#
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace