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