# NOT RUN {
library(magrittr)
library(photosynthesis)
bake_par <- make_bakepar()
constants <- make_constants(use_tealeaves = FALSE)
enviro_par <- make_enviropar(use_tealeaves = FALSE)
leaf_par <- make_leafpar(use_tealeaves = FALSE)
enviro_par$T_air <- leaf_par$T_leaf
leaf_par %<>% bake(bake_par, constants)
pars <- c(leaf_par, enviro_par, constants)
J(pars, FALSE)
# }
Run the code above in your browser using DataLab