# NOT RUN {
data(Wine)
str(Wine)
#summary(Wine)
Wine.mlm <- lm(as.matrix(Wine[, -1]) ~ Cultivar, data=Wine)
Wine.can <- candisc(Wine.mlm)
Wine.can
plot(Wine.can, ellipse=TRUE)
plot(Wine.can, which=1)
# }
Run the code above in your browser using DataLab