tests/testthat/test_oneint.R

In plssem: Complex Partial Least Squares Structural Equation Modeling

devtools::load_all()

m <- '
  X =~ x1 + x2 + x3
  Z =~ z1 + z2 + z3
  Y =~ y1 + y2 + y3

  Y ~ X + Z + X:Z + X:X
'

# summary(modsem::modsem(m, oneIntOrdered, "lms"), standardized = TRUE)
fit <- pls(m, modsem::oneInt, bootstrap = TRUE, sample = 50)
summary(fit)



fit <- pls(m, oneIntOrdered, bootstrap = FALSE)
summary(fit)