lav_syntax <- '
# Composite model
Image <~ IMAG1 + IMAG2 + IMAG3 + IMAG4 + IMAG5
Expectation <~ CUEX1 + CUEX2 + CUEX3
Value <~ PERV1 + PERV2
Satisfaction <~ CUSA1 + CUSA2 + CUSA3
# Structural model
Satisfaction ~ Image + Expectation + Value
'
csem_model <- estimate_pls(mobi, model = csem2seminr(lav_syntax))
Run the code above in your browser using DataLab