
Last chance! 50% off unlimited learning
Sale ends in
subMppca(model, prune = FALSE, thres = 2.001, quick = FALSE, noxmean = TRUE)
# use a subsample of pendat, for runtime (packaging) needs.
temp <- mppca(pendat[sample(1:2000,150),], 15, qmax=8, maxit=20)
temp2 <- subMppca(temp, prune=TRUE, quick=TRUE)
Run the code above in your browser using DataLab