mobi <- mobi
mobi_mm <- constructs(
composite("Image", multi_items("IMAG", 1:5)),
composite("Loyalty", multi_items("CUSL", 1:3))
)
mobi_sm <- relationships(
paths(from = "Image", to = c("Loyalty"))
)
mobi_pls <- estimate_pls(data = mobi,
measurement_model = mobi_mm,
structural_model = mobi_sm,
missing = mean_replacement,
missing_value = NA)
# Re-estimate model faithfully
mobi_pls2 <- rerun(mobi_pls)
# Re-estimated model with altered measurement model
mobi_pls3 <- rerun(mobi_pls, measurement_model=as.reflective(mobi_mm))
Run the code above in your browser using DataLab