tests/testthat/test_get_pi_data_syntax.R

m1 <- '
  # Outer Model
  X =~ x1 + x2 + x3
  Y =~ y1 + y2 + y3
  Z =~ z1 + z2 + z3
  
  # Inner model
  Y ~ X + Z + X:Z 
'
est <- modsem_pi(m1, oneInt)
lav_est <- extract_lavaan(est) 
syntax <- get_pi_syntax(m1)
data <- get_pi_data(m1, oneInt)
lavaan::sem(syntax, data)

Try the modsem package in your browser

Any scripts or data that you put into this service are public.

modsem documentation built on April 3, 2025, 7:51 p.m.