# 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