# 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