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(file.path(exampledir, "lowo2"))
# create a default set of gas-exchange equations, for the Li-6800:
Eqs <- create_equations(c("default", "li6800"))
# replace the value for the leaf light absorptance:
Eqs <- modify_equations(Eqs, 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