## Not run:
# data(latta)
# cat(latta.greenhouse.model)
# cat(latta.hopland.model)
# cat(latta.sierra.model)
#
# latta.greenhouse.fit <- sem(latta.greenhouse.model, sample.cov =
# latta.greenhouse.cov, sample.nobs = 188)
# latta.hopland.fit <- sem(latta.field.model, sample.cov =
# latta.hopland.cov, sample.nobs = 188)
# latta.sierra.fit <- sem(latta.field.model, sample.cov =
# latta.sierra.cov, sample.nobs = 188)
#
# summary(latta.greenhouse.fit, standardize = TRUE)
# summary(latta.hopland.fit, standardize = TRUE)
# summary(latta.sierra.fit, standardize = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab