powered by
normMppca(mppca1)
temp <- newMppca() for(i in 1:5) temp <- appendToMppca(temp, pcapen[[i]]) temp <- normMppca(temp)
Run the code above in your browser using DataLab