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