tpb <- "
# First order constructs
ATT =~ att1 + att2 + att3
SN =~ sn1 + sn2 + sn3
PB =~ pb1 + pb2 + pb3
PC =~ pc1 + pc2 + pc3
BEH =~ b1 + b2
# Higher order constructs
INT =~ ATT + SN
PBC =~ PC + PB
# Higher order interaction
INTxPBC =~ ATT:PC + ATT:PB + SN:PC + SN:PB
# 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