## Not run:
# data(wine)
# res.gpa <- GPA(wine[,-(1:2)], group=c(5,3,10,9,2),
# name.group=c("olf","vis","olfag","gust","ens"))
#
# ### If you want to construct the partial points for some individuals only
# plotGPApartial (res.gpa)
# ## End(Not run)
Run the code above in your browser using DataLab