# You need to install package "amap" for this example
if (requireNamespace("amap", quietly = TRUE)) {
data(SrE.IR)
myt <- expression(bolditalic(Serenoa) ~ bolditalic(repens) ~ bold(IR ~ Spectra))
res <- hcaSpectra(SrE.IR, main = myt)
}
Run the code above in your browser using DataLab