inst/doc/customizing.R

In modsem: Latent Interaction (and Moderation) Analysis in Structural Equation Models (SEM)

## ----include = FALSE----------------------------------------------------------
EVAL_DEFAULT <- FALSE
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = EVAL_DEFAULT
)

## ----setup, eval = TRUE-------------------------------------------------------
library(modsem)

## -----------------------------------------------------------------------------
# m1 <- '
# # Outer Model
# X =~ x1 + x2 + x3
# Y =~ y1 + y2 + y3
# Z =~ z1 + z2 + z3
# 
# # Inner model
# Y ~ X + Z + X:Z
# '
# 
# est1 <- modsem(m1, oneInt)
# cat(est1$syntax)

## -----------------------------------------------------------------------------
# m2 <- '
# # Outer Model
# X =~ x1 + x2
# Y =~ y1 + y2
# Z =~ z1 + z2
# 
# # Inner model
# Y ~ X + Z + X:Z
# '
# 
# est2 <- modsem(m2, oneInt, match = TRUE)
# summary(est2)

## -----------------------------------------------------------------------------
# m3 <- '
# # Outer Model
# X =~ x1 + x2 + x3
# Y =~ y1 + y2 + y3
# Z =~ z1 + z2 + z3
# 
# # Inner model
# Y ~ X + Z + X:Z
# '
# syntax <- get_pi_syntax(m3)
# cat(syntax)

## -----------------------------------------------------------------------------
# data <- get_pi_data(m3, oneInt)
# head(data)

## -----------------------------------------------------------------------------
# library(lavaan)
# fit <- sem(syntax, data = data, fixed.x = FALSE,
#            std.lv = TRUE, auto.fix.first = TRUE,
#            auto.var = TRUE, auto.cov.lv.x = TRUE)
# summary(fit)