#============================================================================
# Example is taken from Benitez et al. (2020)
#============================================================================
model_Benitez <-"
# Reflective measurement models# Reflective measurement models
SEXB =~ SEXB1 + SEXB2 + SEXB3 +SEXB4
SEMB =~ SEMB1 + SEMB2 + SEMB3 + SEMB4
# Composite models
SMC <~ SMC1 + SMC2 + SMC3 + SMC4
BPP <~ BPP1 + BPP2 + BPP3 + BPP4 + BPP5
# Control variables
FS<~ FirmSize
Ind <~ Industry1 + Industry2 + Industry3
# Structural model
SMC ~ SEXB + SEMB
BPP ~ SMC + Ind + FS
"
out <- csem(.data = Benitezetal2020, .model = model_Benitez,
.PLS_weight_scheme_inner = 'factorial',
.tolerance = 1e-06)
Run the code above in your browser using DataLab