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