## Not run:
# # load bordeaux wines dataset
# data(iris)
#
# # geometric predictive discriminant analysis with no validation
# my_geo1 = geoDA(iris[,1:4], iris$Species)
# my_geo1$confusion
# my_geo1$error_rate
#
# # geometric predictive discriminant analysis with cross-validation
# my_geo2 = geoDA(iris[,1:4], iris$Species, validation="crossval")
# my_geo2$confusion
# my_geo2$error_rate
# ## End(Not run)
Run the code above in your browser using DataLab