powered by
plotLoadings(spectra, pca, loads = c(1), ref = 1, ...)
plot2Loadings
data(SrE.IR) results <- classPCA(SrE.IR, choice = "noscale") myt <- expression(bolditalic(Serenoa)~bolditalic(repens)~bold(IR~Spectra)) plotLoadings(SrE.IR, results, main = myt, loads = 1:2, ref = 1)
Run the code above in your browser using DataLab