options_b90 <- set_optionsLWFB90()
param_b90 <- set_paramLWFB90()
standprop <- make_standprop(options_b90,
param_b90,
out_yrs = 2002:2004)
plot(standprop$dates, standprop$lai, type = "l")
Run the code above in your browser using DataLab