exampledir <- system.file("extdata", package = "gasanalyzer")
# import factory calibration for example data:
import_factory_cals(exampledir)
# read data from a txt file:
li6800 <- read_6800_txt(paste0(exampledir, "//lowo2"))
# passing an invalid flags shows which flags are valid:
create_equations("help")
# create a default set of gas-exchange equations, for the 6800, but overwrite
# the default calculation of leaf light absorption with a custom value:
Eqs <- create_equations(c("default", "li6800"), LeafQ.alpha = \() {0.86})
#apply:
li6800_recalc <- recalculate(li6800, Eqs)
li6800$LeafQ.alpha
li6800_recalc$LeafQ.alpha
Run the code above in your browser using DataLab