len <- nrow(iris)
sampl <- sample(x = 1:len,size = len*0.20,replace = FALSE)
ttesting <- iris[sampl,]
ttraining <- iris[-sampl,]
model.qda <- train.qda(Species~.,ttraining)
model.qda
prediction <- predict(model.qda, ttesting)
prediction
Run the code above in your browser using DataLab