if (FALSE) {
data(TitanicNA)
## First the number of components has to be chosen
## (for the reconstruction step)
## nb <- estim_ncpMCA(TitanicNA) ## Time-consuming, nb = 5
## Multiple Imputation
res.mi <- MIMCA(TitanicNA, ncp=5, verbose=TRUE)
## Plot the graphs
plot(res.mi)
}
Run the code above in your browser using DataLab