tpb <- '
# First order constructs
ATT =~ att1 + att2 + att3
SN =~ sn1 + sn2 + sn3
PBC =~ pbc1 + pbc2 + pbc3
BEH =~ b1 + b2
# Higher order constructs
INT =~ ATT + PBC + SN
# Higher order interaction
INTxPBC =~ ATT:PBC + SN:PBC + PBC:PBC
# Structural model
BEH ~ PBC + INT + INTxPBC
'
if (FALSE) {
est <- modsem(tpb, data = TPB_2SO, method = "ca")
summary(est)
}
Run the code above in your browser using DataLab