## Not run:
# data(lamb)
# cat(lamb.bacterial.model)
# cat(lamb.archaeal.model)
# lamb.bacterial.model.fit <- sem(lamb.bacterial.model, sample.cov =
# lamb.bacterial.cov, sample.nobs = 129)
# lamb.archaeal.model.fit <- sem(lamb.archaeal.model, sample.cov =
# lamb.archaeal.cov, sample.nobs = 129)
# summary(lamb.bacterial.model.fit, standardize = TRUE)
# summary(lamb.archaeal.model.fit, standardize = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab