# NOT RUN {
data(metMUD1)
chkSpectra(metMUD1, confirm = TRUE) # OK
# What's next is the wrong way to manipulate a Spectra object.
# One should removeSample instead.
# We won't run during checking as an error is raised
# }
# NOT RUN {
remove <- c(20:40)
metMUD1$freq <- metMUD1$freq[-remove]
chkSpectra(metMUD1, confirm = TRUE) # not OK, you didn't listen to me!
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab