tests/testthat/test_multilevel_random_slope.R

In plssem: Complex Partial Least Squares Structural Equation Modeling

devtools::load_all()

syntax <- "
  X =~ x1 + x2 + x3
  Z =~ z1 + z2 + z3
  Y =~ y1 + y2 + y3
  W =~ w1 + w2 + w3
  Y ~ X + Z + (1 + X + Z | cluster)
  W ~ X + Z + (1 + X + Z | cluster)
"

fit.c <- pls(syntax, data = randomSlopes,
           consistent = TRUE, bootstrap = TRUE)
summary(fit.c)


syntax <- "
  X =~ x1 + x2 + x3
  Z =~ z1 + z2 + z3
  Y =~ y1 + y2 + y3
  W =~ w1 + w2 + w3
  Y ~ X + Z + (1 + X + Z | cluster)
  W ~ X + Z + (1 + X + Z | cluster)
"

fit.o <- pls(syntax, data = randomSlopesOrdered,
           consistent = TRUE, bootstrap = TRUE)
summary(fit.o)