## Not run:
# data(teal)
#
# # Average every two spectra
# teal.sset1 <- aggspec(teal, by = 2)
# plot(teal.sset1)
#
# # Create factor and average spectra by levels 'a' and 'b'
# ind <- rep(c('a', 'b'), times = 6)
# teal.sset2 <- aggspec(teal, by = ind)
#
# plot(teal.sset2)
# ## End(Not run)
Run the code above in your browser using DataLab