m1 <- effectLite(y="dv", x="x", k="k1", z="z1", method = "sem",
fixed.cell=TRUE, fixed.z=TRUE, data=example01)
test <- effectLite_iht(object = m1,
constraints = 'adjmean2 > adjmean1
adjmean1 > adjmean0')
print(test)
Run the code above in your browser using DataLab