# NOT RUN {
# Load example data
data(shipley2009)
# Load model packages
library(lme4)
library(nlme)
# Create list of models
shipley2009.modlist = list(
lme(DD ~ lat, random = ~1|site/tree, na.action = na.omit,
data = shipley2009),
lme(Date ~ DD, random = ~1|site/tree, na.action = na.omit,
data = shipley2009),
lme(Growth ~ Date, random = ~1|site/tree, na.action = na.omit,
data = shipley2009),
glmer(Live ~ Growth+(1|site)+(1|tree),
family=binomial(link = "logit"), data = shipley2009)
)
# Plot output
sem.plot(shipley2009.modlist, shipley2009)
# }
# NOT RUN {
# Alternately get coefficient table and pass to sem.plot
coef.table = sem.coefs(shipley2009.modlist, shipley2009)
sem.plot(coef.table)
# }
Run the code above in your browser using DataLab