file.name <-
system.file("extdata", "drygrass-spectrum.txt",
package = "photobiologyInOut", mustWork = TRUE)
fred.spct <- read_ASTER_txt(file = file.name, npixels = Inf)
fred.spct
getWhatMeasured(fred.spct)
cat(comment(fred.spct))
Run the code above in your browser using DataLab