# getting the path to the .csv file representing the inner Model
ptf_Struc <- system.file("ECSIstrucmod.csv", package="semPLS")
# getting the path to the .csv file representing the outer Models
ptf_Meas <- system.file("ECSImeasuremod.csv", package="semPLS")
sm <- as.matrix(read.csv(ptf_Struc))
mm <- as.matrix(read.csv(ptf_Meas))
data(mobi)
ECSI <- plsm(data=mobi, strucmod=sm, measuremod=mm)
ECSI
### Interactive mode
ECSI <- plsm(data=mobi)
ECSI
exogen(ECSI)
endogen(ECSI)
reflective(ECSI)
formative(ECSI)
indicators(ECSI, "Image")
predecessors(ECSI)
Run the code above in your browser using DataLab