## typical example of PLS-PM in customer satisfaction analysis
## model with six LVs and reflective indicators
data(satisfaction)
IMAG <- c(0,0,0,0,0,0)
EXPE <- c(1,0,0,0,0,0)
QUAL <- c(0,1,0,0,0,0)
VAL <- c(0,1,1,0,0,0)
SAT <- c(1,1,1,1,0,0)
LOY <- c(1,0,0,0,1,0)
sat.inner <- rbind(IMAG, EXPE, QUAL, VAL, SAT, LOY)
sat.outer <- list(1:5,6:10,11:15,16:19,20:23,24:27)
sat.mod <- rep("A",6) ## reflective indicators
res2 <- plspm(satisfaction, sat.inner, sat.outer, sat.mod, scheme="centroid",
scaled=FALSE)
## plot diagram of the inner model
plot(res2)
## plot diagrams of both the inner model and outer model (loadings and weights)
plot(res2, what="all")
Run the code above in your browser using DataLab