# NOT RUN {
#============================================================================
# Example is taken from Henseler (2020)
#============================================================================
model_HOC="
# Measurement models FOC
PR =~ PR1 + PR2 + PR3
IM =~ IM1 + IM2 + IM3
DI =~ DI1 + DI2 + DI3
AD =~ AD1 + AD2 + AD3
DL =~ DL1 + DL2 + DL3
AA =~ AA1 + AA2 + AA3 + AA4 + AA5 + AA6
LO =~ LO1 + LO3
QL =~ QL1 + QL2 + QL3 + QL4 + QL5 + QL6
# Composite model for SOC
BR <~ QL + LO + AA
# Structural model
BR~ PR + IM + DI + AD + DL
"
out <- csem(.data = Yooetal2000, .model = model_HOC,
.PLS_weight_scheme_inner = 'factorial',
.tolerance = 1e-06)
# }
Run the code above in your browser using DataLab