Nothing
## ----eval=FALSE---------------------------------------------------------------
# citation("plantecophys")
## -----------------------------------------------------------------------------
packageVersion("plantecophys")
## -----------------------------------------------------------------------------
library(plantecophys)
# Assume a mesophyll conductance of 0.2 mol m-2 s-1 bar-1
f <- fitaci(acidata1, gmeso=0.2)
## -----------------------------------------------------------------------------
# Assume a mesophyll conductance of 0.2 mol m-2 s-1 bar-1
acidata1$Cc <- with(acidata1, Ci - Photo/0.2)
# Fit normally, but make sure to use Cc!
f <- fitaci(acidata1, varnames=list(ALEAF="Photo", Ci="Cc", Tleaf="Tleaf", PPFD="PARi"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.