file.name <-
system.file("extdata", "LI-180-irradiance.txt",
package = "photobiologyInOut", mustWork = TRUE)
licor180.spct <- read_li180_txt(file = file.name)
licor180.spct
getWhenMeasured(licor180.spct)
getWhatMeasured(licor180.spct)
cat(comment(licor180.spct))
Run the code above in your browser using DataLab