# 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