param_b90 <- set_paramLWFB90()
dat <- slb1_standprop
years <- 2002:2005
param.new <- standprop_yearly_to_param(dat,
param_b90,
years)
identical(param.new$maxlai, dat$maxlai[dat$year %in% years])
identical(param.new$height, dat$height[dat$year %in% years])
Run the code above in your browser using DataLab