# NOT RUN {
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