data(Wolves)
# using group
wolf.mod <-lm(cbind(x1,x2,x3,x4,x5,x6,x7,x8,x9) ~ group, data=Wolves)
car::Anova(wolf.mod)
wolf.can <-candisc(wolf.mod)
plot(wolf.can)
heplot(wolf.can)
# using location, sex
wolf.mod2 <-lm(cbind(x1,x2,x3,x4,x5,x6,x7,x8,x9) ~ location*sex, data=Wolves)
car::Anova(wolf.mod2)
wolf.can2 <-candiscList(wolf.mod2)
plot(wolf.can2)
Run the code above in your browser using DataLab