example <- system.file("extdata", "6400-testfile", package = "gasanalyzer")
# read data:
li6400 <- read_6400_txt(example)
# expand the data frame for a range of leaf areas, and recalculate the data:
li6400 <- permutate(li6400, Const.S = seq(1, 8)) |>
recalculate(create_equations(c("default", "li6400")))
if (interactive()) {
require(units)
require(graphics)
# observe that changing the leaf area enclosed in the chamber would have a
# nonlinear effect on the rate of photosynthesis:
aggregate(list(A = li6400$GasEx.A), list(Area = (li6400$Const.S)), mean) |>
plot()
}
Run the code above in your browser using DataLab