# NOT RUN {
## Specification
# Shipley.SEM <- list(
#   DD = lme4::lmer(DD ~ lat + (1 | site) + (1 | tree), data = Shipley),
#   Date = lme4::lmer(Date ~ DD + (1 | site) + (1 | tree), data = Shipley),
#   Growth = lme4::lmer(Growth ~ Date + (1 | site) + (1 | tree),
#                       data = Shipley),
#   Live = lme4::glmer(Live ~ Growth + (1 | site) + (1 | tree), binomial,
#                      data = Shipley)
# )
# }
Run the code above in your browser using DataLab