Skip to content

Instantly share code, notes, and snippets.

@jknowles

jknowles/gist:4674473

Created January 30, 2013 16:34
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save jknowles/4674473 to your computer and use it in GitHub Desktop.
Save jknowles/4674473 to your computer and use it in GitHub Desktop.
Download ZIP
lavaan SEM plots with semPlot package
Raw
gistfile1.r
library(lavaan)
model <- '
# latent variable definitions
ind60 =~ x1 + x2 + x3
dem60 =~ y1 + a*y2 + b*y3 + c*y4
dem65 =~ y5 + a*y6 + b*y7 + c*y8
# regressions
dem60 ~ ind60
dem65 ~ ind60 + dem60
# residual correlations
y1 ~~ y5
y2 ~~ y4 + y6
y3 ~~ y7
y4 ~~ y8
y6 ~~ y8
'
library(devtools)
dev_mode()
library(semPlot)
fit <- sem(model, data=PoliticalDemocracy)
semPaths(fit,whatLabels="est",style="lisrel",
residuals=TRUE)
dev_mode()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment