## Not run:
# data(teal)
# plot(teal, select = 10)
#
# # Smooth data to remove noise
# teal.sm <- procspec(teal, opt = 'smooth', span = 0.25)
# plot(teal.sm, select = 10)
#
# # Normalize to max of unity
# teal.max <- procspec(teal, opt = c('max'), span = 0.25)
# plot(teal.max, select = 10)
# ## End(Not run)
Run the code above in your browser using DataLab