data(CuticleIR)
myt <- expression(bolditalic(Portulaca)~bolditalic(oleracea)~bold(Cuticle~IR~Spectra))
plotSpectra(CuticleIR, main = myt,
which = c(10:11, 40:41, 100:101, 140:141, 150:151),
yrange = c(0,10),
offset = 0.8, amplify = 1.0, lab.pos = 2000)
Run the code above in your browser using DataLab