# Load example data
data(shipley2009)
# Load model packages
library(lmerTest)
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)
)
# Get goodness-of-fit and AIC
sem.fit(shipley2009.modlist, shipley2009)
# Extract path coefficients
sem.coefs(shipley2009.modlist, shipley2009)
Run the code above in your browser using DataLab