if (FALSE) {
data(dataExample_clpca)
Y<-as.matrix(dataExample_clpca[,5:8])
X<-as.matrix(dataExample_clpca[,1:4])
# supervised
output = clpca(Y = Y, X = X, S = 2)
boot.output = bootstrap.clpca(output, Bsamples = 100)
plot(boot.output)
}
Run the code above in your browser using DataLab