## Not run:
# ## example of PLS-PM in customer satisfaction analysis
# ## model with seven LVs and reflective indicators
# data(csimobile)
#
# # select manifest variables
# data_mobile = csimobile[,8:33]
#
# # define path matrix (inner model)
# IMAG = c(0, 0, 0, 0, 0, 0, 0)
# EXPE = c(1, 0, 0, 0, 0, 0, 0)
# QUAL = c(0, 1, 0, 0, 0, 0, 0)
# VAL = c(0, 1, 1, 0, 0, 0, 0)
# SAT = c(1, 1, 1, 1, 0, 0, 0)
# COM = c(0, 0, 0, 0, 1, 0, 0)
# LOY = c(1, 0, 0, 0, 1, 1, 0)
# mob_path = rbind(IMAG, EXPE, QUAL, VAL, SAT, COM, LOY)
#
# # blocks of indicators (outer model)
# mob_blocks = list(1:5, 6:9, 10:15, 16:18, 19:21, 22:24, 25:26)
# mob_modes = rep("A", 7)
#
# # apply plspm
# mob_pls = plspm(data_mobile, mob_path, mob_blocks, modes = mob_modes,
# scheme = "factor", scaled = FALSE)
#
# # re-ordering those segmentation variables with ordinal scale
# # (Age and Education)
# csimobile$Education = factor(csimobile$Education,
# levels=c("basic","highschool","university"),
# ordered=TRUE)
#
# # select the segmentation variables
# seg_vars = csimobile[,1:7]
#
# # Techmox Analysis
# mob_techmox = techmox(mob_pls, seg_vars, signif=.10, size=.10, deep=2)
# ## End(Not run)
Run the code above in your browser using DataLab