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