data(SrE.IR)
# remove noisy, uninteresting region:
newIR <- removeFreq(SrE.IR, rem.freq =
SrE.IR$freq > 1800 & SrE.IR$freq < 2500)
# now make the heat map:
hmapSpectra(newIR, cexRow = 0.5, cexCol = 0.1, no.col = 9)Run the code above in your browser using DataLab