file.name <-
system.file("extdata", "spectrum.jaz",
package = "photobiologyInOut", mustWork = TRUE)
jaz.filter_spct <- read_oo_jazpc(file = file.name)
jaz.filter_spct
getWhenMeasured(jaz.filter_spct)
getWhatMeasured(jaz.filter_spct)
cat(comment(jaz.filter_spct))
file.name <-
system.file("extdata", "spectrum.JazIrrad",
package = "photobiologyInOut", mustWork = TRUE)
jaz.source_spct <- read_oo_jazirrad(file = file.name, unit.in = "energy")
jaz.source_spct
getWhenMeasured(jaz.source_spct)
getWhatMeasured(jaz.source_spct)
cat(comment(jaz.source_spct))
q_irrad(jaz.source_spct, waveband(c(400, 700)), scale.factor = 1e6) # mol -> umol
Run the code above in your browser using DataLab