#Load example daily meteorological data
data(examplemeteo)
#Load example plot plant data
data(exampleforest)
#Default species parameterization
data(SpParamsMED)
#Define soil with default soil params (4 layers)
examplesoil <- defaultSoilParams(4)
#Initialize control parameters
control <- defaultControl(transpirationMode="Sperry")
#Initialize input
x2 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control)
# Stomatal VPD curve and chosen value for the 12th time step at day 100
transp_stomatalRegulationPlot(x2, examplemeteo, day=100, timestep = 12,
latitude = 41.82592, elevation = 100, type="VPD")
Run the code above in your browser using DataLab