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)
