data(MAIT_sample)
MAIT<-spectralSigFeatures(MAIT,p.adj="fdr",parametric=TRUE)
loadings(MAIT)
MAIT<-plotPCA(MAIT,plot3d=FALSE)
loadings(MAIT,type="PCA")
MAIT<-plotPLS(MAIT,plot3d=FALSE)
loadings(MAIT,type="PLS")
Run the code above in your browser using DataLab