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