# \donttest{
#Load example daily meteorological data
data(examplemeteo)
# Load example plot plant data
data(exampleforest)
# Load default species parameters
data(SpParamsMED)
# Define soil with default soil params
examplesoil <- defaultSoilParams(4)
# Initialize control parameters for 'Sperry' transpiration mode
control <- defaultControl(transpirationMode="Sperry")
# Initialize input
x2 <- spwbInput(exampleforest,examplesoil, SpParamsMED, control)
# Estimate maximum transpiration ratio models for each cohort
# Weather is subset to speed-up results
m <- transp_maximumTranspirationModel(x2, examplemeteo[1:10,],
41.82592, elevation = 100,
slope = 0, aspect = 0)
# Inspect the model for first cohort
m[[1]]
# }
Run the code above in your browser using DataLab