## Not run:
# data(iris)
# TrainData <- iris[,1:4]
# TrainClasses <- iris[,5]
#
# options(digits = 3)
#
# library(klaR)
# rdaFit <- train(TrainData, TrainClasses, method = "rda",
# control = trainControl(method = "cv"))
# rdaFit
# print(rdaFit, showSD = TRUE)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace