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