# 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