## Not run:
# data(gene)
# res.impute <- imputeMFA(gene[,-1], group = c(76,356),
# type = rep("s",2), ncp = 2)
# res.mfa <- MFA(cbind.data.frame(gene[,1], res.impute$completeObs),
# group = c(1,76,356), type=c("n",rep("s",2)),
# name.group = c("WHO","CGH","expr"), num.group.sup = 1)
# plot(res.mfa, habillage = 1, lab.ind = FALSE)
# plot(res.mfa, habillage = "group", invisible = "ind", partial = "all")
# plot(res.mfa, habillage = "group", lab.ind = FALSE, partial = "all")
# plot(res.mfa, choix = "var", habillage = "group", lab.var = FALSE)
# plot(res.mfa, choix = "group", habillage = "group")
# ## End(Not run)
Run the code above in your browser using DataLab