data(wine)
res <- MFA(wine, group=c(2,5,3,10,9,2), type=c("n",rep("s",5)),
ncp=5, name.group=c("orig","olf","vis","olfag","gust","ens"),
num.group.sup=c(1,6))
summary(res)
barplot(res$eig[,1],main="Eigenvalues",names.arg=1:nrow(res$eig))
## Not run:
# #### Confidence ellipses around categories per variable
# plotellipses(res)
# plotellipses(res,keepvar="Label") ## for 1 variable
#
# #### Interactive graph
# liste = plotMFApartial(res)
# plot(res,choix="ind",habillage = "Terroir")
#
# ###Example with groups of categorical variables
# data (poison)
# MFA(poison, group=c(2,2,5,6), type=c("s","n","n","n"),
# name.group=c("desc","desc2","symptom","eat"),
# num.group.sup=1:2)
#
# ###Example with groups of frequency tables
# data(mortality)
# res<-MFA(mortality,group=c(9,9),type=c("f","f"),
# name.group=c("1979","2006"))
# ## End(Not run)
Run the code above in your browser using DataLab