file.name <-
system.file("extdata", "spectrum-avaspec.csv",
package = "photobiologyInOut", mustWork = TRUE)
avaspec.spct <- read_avaspec_csv(file = file.name)
avaspec.spct
getWhatMeasured(avaspec.spct)
cat(comment(avaspec.spct))
Run the code above in your browser using DataLab