# NOT RUN {
data(SrE.IR)
pca <- c_pcaSpectra(SrE.IR)
myt <- expression(bolditalic(Serenoa)~bolditalic(repens)~bold(IR~Spectra))
res <- plot2Loadings(SrE.IR, pca, main = myt,
loads = c(1,2), tol = 0.001)
# }
Run the code above in your browser using DataLab