## PCA
data(chocolates)
ktab.donnee <- ktab.data.frame(cbind.data.frame(chocolates[,1],
chocolates[,4], chocolates[,-(1:4)]), blocks = c(2,14),
tabnames = c("JP","Desc"))
## MFA
data(chocolates)
ktab.donnee <- ktab.data.frame(cbind.data.frame(chocolates[,1],
chocolates[,4], chocolates[,-(1:4)]), blocks = c(2,6,8),
tabnames = c("JP","A-F","T-S"))
Run the code above in your browser using DataLab