tests/testthat/test_twostep.R

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

devtools::load_all()


m1 <- "
# Outer Model
  X =~ x1 + x2 + x3
  Z =~ z1 + z2 + z3
  Y =~ y1 + y2 + y3
# Inner Model
  Y ~ X + Z + X:Z
"

est_dca <- twostep(m1, data = oneInt, method = "dblcent")
est_lms <- twostep(m1, data = oneInt, method = "lms")
summary(est_dca)
summary(est_lms)


tpb <- "
# Outer Model (Based on Hagger et al., 2007)
  ATT =~ att1 + att2 + att3 + att4 + att5
  SN =~ sn1 + sn2
  PBC =~ pbc1 + pbc2 + pbc3
  INT =~ int1 + int2 + int3
  BEH =~ b1 + b2

# Inner Model (Based on Steinmetz et al., 2011)
  INT ~ ATT + SN + PBC
  BEH ~ INT + PBC + INT:PBC
"

tpb_lms <- twostep(tpb, data = TPB, method = "lms", nodes = 32)
tpb_dca <- suppressWarnings(twostep(tpb, data = TPB, method = "dblcent"))
summary(tpb_lms)
suppressWarnings(summary(tpb_dca))


tpb_uk <- "
# Outer Model (Based on Hagger et al., 2007)
 ATT =~ att3 + att2 + att1 + att4
 SN =~ sn4 + sn2 + sn3 + sn1
 PBC =~ pbc2 + pbc1 + pbc3 + pbc4
 INT =~ int2 + int1 + int3 + int4
 BEH =~ beh3 + beh2 + beh1 + beh4

# Inner Model (Based on Steinmetz et al., 2011)
 # Causal Relationsships
 INT ~ ATT + SN + PBC
 BEH ~ INT + PBC
 BEH ~ INT:PBC
"

uk_lms <- twostep(tpb_uk, TPB_UK, method = "lms", nodes = 32, adaptive.quad = TRUE)
uk_qml <- twostep(tpb_uk, TPB_UK, method = "qml")
uk_dblcent <- twostep(tpb_uk, TPB_UK, method = "dblcent")
summary(uk_lms)
summary(uk_dblcent)