mobi_mm <- constructs(
composite("Image", multi_items("IMAG", 1:5)),
composite("Expectation", multi_items("CUEX", 1:3)),
composite("Value", multi_items("PERV", 1:2))
)
new_mm <- as.reflective(mobi_mm)
Run the code above in your browser using DataLab