# NOT RUN {
data(SrE.NMR)
pca <- irlba_pcaSpectra(SrE.NMR)
plotScree(pca)
plotScores(SrE.NMR, pca, main = "SrE NMR Data",
pcs = c(1,2), ellipse = "cls", tol = 0.05)
plotLoadings(SrE.NMR, pca, main = "SrE NMR Data",
loads = 1:2, ref = 1)
# }
Run the code above in your browser using DataLab