data(mobi)
data(ECSIsm)
data(ECSImm)
ECSI <- plsm(data=mobi, strucmod=ECSIsm, measuremod=ECSImm)
### Some sense free examples
ECSI[["blocks"]]["Expectation"]
invertLVs(model=ECSI, LVs=c("Expectation"))[["blocks"]]["Expectation"]
ECSI[["D"]]
addPath(model=ECSI, from="Quality", to="Loyalty")[["D"]]
removePath(model=ECSI, from="Image", to=c("Satisfaction", "Loyalty"))[["D"]]
### some handy functions
exogenous(ECSI)
endogenous(ECSI)
reflective(ECSI)
formative(ECSI)
indicators(ECSI, "Image")
predecessors(ECSI)
Run the code above in your browser using DataLab