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