# \donttest{
#Load example daily meteorological data
data(examplemeteo)
#Load example plot plant data
data(exampleforestMED)
#Default species parameterization
data(SpParamsMED)
#Initialize soil with default soil params
examplesoil <- soil(defaultSoilParams(2))
#Initialize control parameters
control <- defaultControl("Granier")
#Initialize input
x <- forest2spwbInput(exampleforestMED,examplesoil, SpParamsMED, control)
#Run exploration (weather subset for faster computation)
y <- spwb_ldrExploration(x = x, meteo = examplemeteo[1:50,],
elevation = 100, latitude = 41.82592)
#Optimization under different modes
spwb_ldrOptimization(y = y, psi_crit = c(-2,-3,-4), opt_mode = 1)
# }
Run the code above in your browser using DataLab