## Not run:
# data(teal)
# peakshape(teal, select = 3)
# peakshape(teal, select = 10)
# # Use wavelength bounds to narrow in on peak of interest
# peakshape(teal, select = 10, lim=c(400, 550))## End(Not run)
Run the code above in your browser using DataLab