if (FALSE) {
## example of rebus analysis with simulated data
# load data
data(simdata)
# Calculate plspm
sim_path = matrix(c(0,0,0,0,0,0,1,1,0), 3, 3, byrow=TRUE)
dimnames(sim_path) = list(c("Price", "Quality", "Satisfaction"),
c("Price", "Quality", "Satisfaction"))
sim_blocks = list(c(1,2,3,4,5), c(6,7,8,9,10), c(11,12,13))
sim_modes = c("A", "A", "A")
sim_global = plspm(simdata, sim_path,
sim_blocks, modes=sim_modes)
sim_global
# Then compute cluster analysis on the residuals of global model
sim_clus = res.clus(sim_global)
}
Run the code above in your browser using DataLab