# NOT RUN {
#============================================================================
# Example is taken from Henseler (2020)
#============================================================================
model_Bergami_Bagozzi="
# Measurement models
OrgPres =~ cei1 + cei2 + cei3 + cei4 + cei5 + cei6 + cei7 + cei8
OrgIden =~ ma1 + ma2 + ma3 + ma4 + ma5 + ma6
AffLove =~ orgcmt1 + orgcmt2 + orgcmt3 + orgcmt7
AffJoy =~ orgcmt5 + orgcmt8
Gender <~ gender
# Structural model
OrgIden ~ OrgPres
AffLove ~ OrgPres + OrgIden + Gender
AffJoy ~ OrgPres + OrgIden + Gender
"
out <- csem(.data = BergamiBagozzi2000, .model = model_Bergami_Bagozzi,
.PLS_weight_scheme_inner = 'factorial',
.tolerance = 1e-06
)
# }
Run the code above in your browser using DataLab