# load iris dataset
data(iris)
# linear discriminant analysis
my_lin1 = linDA(iris[,1:4], iris$Species)
# select a sample of 15 observations
set.seed(111)
obs = sample(1:nrow(iris), 15)
some_data = iris[obs, 1:4]
# classify some_data
get_classes = classify(my_lin1, some_data)
get_classes
# compare the results against original class
table(iris$Species[obs], get_classes$pred_class)Run the code above in your browser using DataLab