data(CuticleIR)
chkSpectra(CuticleIR, confirm = TRUE) # OK
# What's next works, but is the wrong way to manipulate a "Spectra" object.
# Use removeSample instead.
remove <- c(20:40)
CuticleIR$freq <- CuticleIR$freq[-remove]
chkSpectra(CuticleIR, confirm = TRUE) # not OK, you didn't listen to me!
Run the code above in your browser using DataLab