mobi_mm <- constructs(
reflective("Image", multi_items("IMAG", 1:5)),
reflective("Expectation", multi_items("CUEX", 1:3)),
higher_reflective("Quality", c("Image", "Expectation"))
)
Run the code above in your browser using DataLab