# NOT RUN {
bake_par <- make_bakepar()
constants <- make_constants(use_tealeaves = FALSE)
enviro_par <- make_enviropar(use_tealeaves = FALSE)
leaf_par <- make_leafpar(use_tealeaves = FALSE)
leaf_par <- bake(leaf_par, bake_par, constants)
# Or bake with piping (need library(magrittr))
# leaf_par %<>% bake(bake_par, constants)
enviro_par$T_air <- leaf_par$T_leaf
pars <- c(leaf_par, enviro_par, constants)
C_chl <- set_units(35, "Pa")
A_supply(C_chl, pars)
A_demand(C_chl, pars)
# }
Run the code above in your browser using DataLab