data(SrE.IR)
temp <- baselineSpec(SrE.IR, int = FALSE, method = "rfbaseline")
par(mfrow = c(1,1)) # needed to cancel 2 panel plot
baselineSpec(SrE.IR)
par(mfrow = c(1,1)) # needed to cancel 2 panel plot
Run the code above in your browser using DataLab