# NOT RUN {
## Specification
# }
# NOT RUN {
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