if (FALSE) {
## typical example of PLS-PM in customer satisfaction analysis
## model with six LVs and reflective indicators
## example of rebus analysis with simulated data
# load data
data(simdata)
# Calculate plspm
sim_inner = matrix(c(0,0,0,0,0,0,1,1,0), 3, 3, byrow=TRUE)
dimnames(sim_inner) = list(c("Price", "Quality", "Satisfaction"),
c("Price", "Quality", "Satisfaction"))
sim_outer = list(c(1,2,3,4,5), c(6,7,8,9,10), c(11,12,13))
sim_mod = c("A", "A", "A") # reflective indicators
sim_global = plspm(simdata, sim_inner,
sim_outer, modes=sim_mod)
sim_global
# run rebus.pls and choose the number of classes
# to be taken into account according to the displayed dendrogram.
rebus_sim = rebus.pls(sim_global, stop.crit = 0.005, iter.max = 100)
# You can also compute complete outputs for local models by running:
local_rebus = local.models(sim_global, rebus_sim)
}
Run the code above in your browser using DataLab