if (FALSE) {
# Example of PATHMOX approach in customer satisfaction analysis
# (Spanish financial company).
# Model with 5 LVs (4 common factor: Image (IMAG), Value (VAL),
# Satisfaction (SAT), and Loyalty (LOY); and 1 composite 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
# Composite
QUAL <~ qual1 + qual2 + qual3 + qual4 + qual5 + qual6 + qual7
# common factor
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,
.alpha = 0.05,
.deep = 1
)
# Visualize the Pathmox results
summary(csi.pathmox.age)
}
Run the code above in your browser using DataLab