if (FALSE) {
data(geomorphology)
res <- FAMD(geomorphology)
summary(res)
## Graphical interface
require(Factoshiny)
res <- Factoshiny(geomorphology)
### with missing values
require(missMDA)
data(ozone)
res.impute <- imputeFAMD(ozone, ncp=3)
res.afdm <- FAMD(ozone,tab.disj=res.impute$tab.disj)
}
Run the code above in your browser using DataLab