"plot"(x, choice = "all", axes = c(1, 2), new.plot = TRUE, main = NULL, level.conf = 0.95, ...)MIPCA,imputePCA## Not run:
# data(orange)
# ## nb <- estim_ncpPCA(orange,ncp.max=5) ## Time consuming, nb = 2
# resMI <- MIPCA(orange,ncp=2)
# plot(resMI)
# ## End(Not run)
Run the code above in your browser using DataLab