# NOT RUN {
# }
# 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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab