#============================================================================
# Example is taken from Henseler (2021)
#============================================================================
model_Bergami_Bagozzi_Henseler="
# 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_Henseler,
.PLS_weight_scheme_inner = 'factorial',
.tolerance = 1e-06
)
#============================================================================
# Example is taken from Hwang et al. (2004)
#============================================================================
model_Bergami_Bagozzi_Hwang="
# Measurement models
OrgPres =~ cei1 + cei2 + cei3 + cei4 + cei5 + cei6 + cei7 + cei8
OrgIden =~ ma1 + ma2 + ma3 + ma4 + ma5 + ma6
AffJoy =~ orgcmt1 + orgcmt2 + orgcmt3 + orgcmt7
AffLove =~ orgcmt5 + orgcmt6 + orgcmt8
# Structural model
OrgIden ~ OrgPres
AffLove ~ OrgIden
AffJoy ~ OrgIden"
out_Hwang <- csem(.data = BergamiBagozzi2000,
.model = model_Bergami_Bagozzi_Hwang,
.approach_weights = "GSCA",
.disattenuate = FALSE,
.id = "gender",
.tolerance = 1e-06)
Run the code above in your browser using DataLab