## Not run:
# data(albert)
# cat(albert.model)
# albert.rock.fit <- sem(albert.model, sample.cov = albert.rock.cov,
# sample.nobs = 107)
# albert.litho.fit <- sem(albert.model, sample.cov = albert.litho.cov,
# sample.nobs = 107)
# summary(albert.rock.fit, standardized = TRUE)
# summary(albert.litho.fit, standardized = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab