if (FALSE) {
# Example of PATHMOX approach in customer satisfaction analysis
# (Spanish financial company).
# Model with 5 LVs (4 reflective: Image (IMAG), Value (VAL),
# Satisfaction (SAT), and Loyalty (LOY); and 1 formative construct:
# Quality (QUAL))
# load library and dataset csibank
library(genpathmx)
data("csibank")
# Define the model using the laavan syntax. Use a set of regression formulas to define
# first the structural model and then the measurement model
CSImodel <- "
# Structural model
VAL ~ QUAL
SAT ~ IMAG + QUAL + VAL
LOY ~ IMAG + SAT
# Measurement model
# Formative
QUAL <~ qual1 + qual2 + qual3 + qual4 + qual5 + qual6 + qual7
# Reflective
IMAG <~ imag1 + imag2 + imag3 + imag4 + imag5 + imag6
VAL <~ val1 + val2 + val3 + val4
SAT =~ sat1 + sat2 + sat3
LOY =~ loy1 + loy2 + loy3
"
# Run pathmox on one single variable
age = csibank[,2]
# Transform age into an ordered factor
age = factor(age, levels=c("<=25", "26-35", "36-45", "46-55",
"56-65", ">=66"),ordered=T)
csi.pathmox.age = pls.pathmox(
.model = CSImodel ,
.data = csibank,
.catvar= age,
.signif = 0.05,
.deep=1
)
# Visualize the Pathmox results
summary(csi.pathmox.age)
}
Run the code above in your browser using DataLab