if (FALSE) {
require(FactoMineR)
data(decathlon)
# HCPC with Factoshiny on a result of a factor analysis:
res.pca <- PCA(decathlon, quanti.sup = 11:12, quali.sup=13)
res.shiny=HCPCshiny(res.pca)
# HCPC with Factoshiny on a dataframe:
data(wine)
res.shiny2=HCPCshiny(wine)
# Find your app the way you left it (by clicking on the "Quit the app" button)
res.shiny3=HCPCshiny(res.shiny2)
}
Run the code above in your browser using DataLab