## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab