if (FALSE) {
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),graph=FALSE)
res.shiny=MFAshiny(res)
#click on the "Quit the app" button
print(res.shiny)
}
Run the code above in your browser using DataLab