data(CuticleIR)
# trim it down so plot is not so crowded:
newIR <- removeFreq(CuticleIR, rem.freq =
CuticleIR$freq > 1500 | CuticleIR$freq < 500)
# remove some random samples too:
newIR <- removeSample(newIR, rem.sam = sample(1:157, 107))
# now make the heat map:
hmapSpectra(newIR, title = "Cuticle IR", t.pos = c(0.45, 0.25, 1),
cexRow = 0.5, cexCol = 0.1, no.col = 9)Run the code above in your browser using DataLab