knitr::opts_chunk$set(collapse = TRUE, comment = "#>", message = FALSE, warning = FALSE)
Sample lavaan model:
library(lavaan) model <- ' # measurement model ind60 =~ x1 + x2 + x3 dem60 =~ y1 + y2 + y3 + y4 dem65 =~ y5 + y6 + y7 + y8 # regressions dem60 ~ ind60 dem65 ~ ind60 + dem60 # residual correlations y1 ~~ y5 y2 ~~ y4 + y6 y3 ~~ y7 y4 ~~ y8 y6 ~~ y8 '
Fit the model
fit <- sem(model, data = PoliticalDemocracy) summary(fit)
Format the model results using lavaanTable
library(lavaanTable) tidy_lavaan(fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.