inst/doc/simple_slopes.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--------------------------------------------------------------------
#  library(modsem)

## -----------------------------------------------------------------------------
#  m1 <- "
#  # Outer Model
#    X =~ x1
#    X =~ x2 + x3
#    Z =~ z1 + z2 + z3
#    Y =~ y1 + y2 + y3
#  
#  # Inner Model
#    Y ~ X + Z + X:Z
#  "
#  est1 <- modsem(m1, data = oneInt)
#  plot_interaction(x = "X", z = "Z", y = "Y", vals_z = c(0, 1), model = est1)

## -----------------------------------------------------------------------------
#  m1 <- "
#  # Outer Model
#    X =~ x1
#    X =~ x2 + x3
#    Z =~ z1 + z2 + z3
#    Y =~ y1 + y2 + y3
#  
#  # Inner Model
#    Y ~ X + Z + X:Z
#  "
#  
#  est1 <- modsem(m1, data = oneInt)
#  simple_slopes(x = "X", z = "Z", y = "Y", vals_z = c(0, 1), model = est1)

## -----------------------------------------------------------------------------
#  m1 <- "
#  # Outer Model
#    X =~ x1
#    X =~ x2 + x3
#    Z =~ z1 + z2 + z3
#    Y =~ y1 + y2 + y3
#  
#  # Inner Model
#    Y ~ X + Z + X:Z
#  "
#  
#  est1 <- modsem(m1, data = oneInt)
#  slopes <- simple_slopes(x = "X", z = "Z", y = "Y",
#                          vals_z = c(0, 1), model = est1)
#  as.data.frame(slopes)