data(ECSImobi)
ecsi <- sempls(model=ECSImobi, data=mobi, E="C")
ecsi
densityplot(ecsi)
densityplot(ecsi, use="prediction")
densityplot(ecsi, use="residuals")
names(ecsi)
ecsi$outer_weights
ecsi$outer_loadings
ecsi$path_coefficients
ecsi$total_effects
### R-squared
rSquared(ecsi)
### Create .dot representation of the path diagram and
### create .pdf file if graphviz is available.
pathDiagram(ecsi, file="ecsiPLS1", edge.labels="both",
output.type="graphics", digits=3, graphics.fmt = "pdf")
# include R-squared values
pathDiagram(ecsi, file="ecsiPLS2", edge.labels="both",
output.type="graphics", digits=3, graphics.fmt = "pdf",
rSquared=Rsquared)
# only the structural model
pathDiagram(ecsi, file="ecsiPLS3", edge.labels="both",
output.type="graphics", digits=3, graphics.fmt = "pdf",
rSquared=Rsquared, full=FALSE)
Run the code above in your browser using DataLab