data(orange)
## First the number of components has to be chosen
## (for the reconstruction step)
## nb <- estim_ncpPCA(orange,ncp.max=5) ## Time consuming, nb = 2
## Multiple Imputation
resMI <- MIPCA(orange,ncp=2)
## Visualization on the PCA map
plot(resMI)
Run the code above in your browser using DataLab