## 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