Define PLS model structure
Functional<-c(0,0,0,0,0,0,0,0)
Emotional<-c(0,0,0,0,0,0,0,0)
P<-c(0,0,0,0,0,0,0,0)
Q<-c(0,0,0,0,0,0,0,0)
PAvail<-c(0,0,0,0,0,0,0,0)
CS<-c(0,0,0,0,0,0,0,0)
RelAtt<-c(1,1,1,1,1,1,0,0)
CustLoyaltyBeh<-c(0,0,0,0,0,0,1,0)
Path<-rbind(Functional,Emotional,P,Q,PAvail,CS,RelAtt,CustLoyaltyBeh)
FabianBlocks<-list(1:3,4:5,6,7,8,10:11,12:14,15:20)
FabianModes<-rep("A",8)
innerplot(Path)
PLS_Fabiandat
##factanal(Fabiandat[,1:20],factors=8, rotation="varimax")
FabianPLS<-plspm(Fabiandat,Path,FabianBlocks,mode=FabianModes)
FabianPLS
## Partial Least Squares Path Modeling (PLS-PM)
## ---------------------------------------------
## NAME DESCRIPTION
## 1 $outer_model outer model
## 2 $inner_model inner model
## 3 $path_coefs path coefficients matrix
## 4 $scores latent variable scores
## 5 $crossloadings cross-loadings
## 6 $inner_summary summary inner model
## 7 $effects total effects
## 8 $unidim unidimensionality
## 9 $gof goodness-of-fit
## 10 $boot bootstrap results
## 11 $data data matrix
## ---------------------------------------------
## You can also use the function 'summary'
FabianPLS$unidim
## Mode MVs C.alpha DG.rho eig.1st eig.2nd
## Functional A 3 0.7422971 0.8539912 1.985768 0.6395306
## Emotional A 2 0.7919803 0.9057890 1.655602 0.3443978
## P A 1 1.0000000 1.0000000 1.000000 0.0000000
## Q A 1 1.0000000 1.0000000 1.000000 0.0000000
## PAvail A 1 1.0000000 1.0000000 1.000000 0.0000000
## CS A 2 0.6412864 0.8479198 1.471981 0.5280194
## RelAtt A 3 0.8123142 0.8891564 2.184443 0.5194564
## CustLoyaltyBeh A 6 0.8523681 0.8905209 3.454021 0.7017346
FabianPLS$crossloadings
## name block Functional Emotional P Q
## 1 OS09_06 Functional 0.86749997 0.23912063 0.07631678 -0.0608368826
## 2 OS09_07 Functional 0.88776805 0.18311109 0.13789492 -0.0007190123
## 3 OS09_08 Functional 0.64951332 0.05591442 0.19763835 0.0768502713
## 4 OS10_04 Emotional 0.15706062 0.91879877 0.08380070 0.2346653200
## 5 OS10_05 Emotional 0.24301382 0.90042682 0.13060899 0.0375575979
## 6 OS09_01 P 0.14929910 0.11655142 1.00000000 -0.1398007793
## 7 OS09_02 Q -0.01219512 0.15482075 -0.13980078 1.0000000000
## 8 OS09_03 PAvail 0.38698673 0.20069439 0.07263228 0.0494616447
## 9 OS09_04 CS 0.22480604 0.24436423 0.14622709 0.0279271677
## 10 OS10_03 CS 0.26779389 0.27189618 0.19485287 -0.0343811097
## 11 SA04_01 RelAtt 0.23712881 0.30376799 0.14924678 0.1375375953
## 12 SA04_02 RelAtt 0.34093905 0.14778979 0.14471503 0.1743476446
## 13 SA04_04 RelAtt 0.37813484 0.19308994 0.08912096 0.0842617753
## 14 SA05_02 CustLoyaltyBeh 0.29177933 0.11776503 0.04297230 0.1215321590
## 15 SA05_03 CustLoyaltyBeh 0.17759342 0.22833915 0.02341665 0.2145126706
## 16 SA05_04 CustLoyaltyBeh 0.13998790 0.11951996 -0.04653979 0.1960341676
## 17 SA05_05 CustLoyaltyBeh 0.10452742 0.06745963 -0.01397270 0.1437390798
## 18 SA05_06 CustLoyaltyBeh 0.34468470 0.20696033 0.05481275 0.0969331919
## 19 SA05_08 CustLoyaltyBeh 0.11480343 0.27284556 0.01709109 -0.0139348679
## PAvail CS RelAtt CustLoyaltyBeh
## 1 0.40312859 0.25156631 0.3532240 0.23754728
## 2 0.28669095 0.24248077 0.3442226 0.22206699
## 3 0.22617164 0.21880433 0.1683659 0.22207938
## 4 0.13831040 0.28705854 0.2376225 0.19129304
## 5 0.23150110 0.26138271 0.2156179 0.22374787
## 6 0.07263228 0.20279045 0.1485782 0.02260629
## 7 0.04946164 -0.01041727 0.1538802 0.16092076
## 8 1.00000000 0.22721463 0.1995070 0.20676066
## 9 0.24292333 0.79608124 0.1983512 0.09739265
## 10 0.16393385 0.90927560 0.2884201 0.19073674
## 11 0.06760985 0.29848350 0.8213438 0.39039395
## 12 0.18446071 0.25680340 0.8959708 0.42939517
## 13 0.24921468 0.19601554 0.8402377 0.56183066
## 14 0.20037352 0.02228275 0.4817790 0.78929824
## 15 0.13138549 0.19199657 0.3757435 0.73994372
## 16 0.09037567 0.04138798 0.3732165 0.77397639
## 17 0.11190540 0.07968077 0.2945224 0.69721639
## 18 0.25266108 0.26186694 0.4867055 0.79376752
## 19 0.11123469 0.18879818 0.4045581 0.74592084
FabianPLS$inner_model
## $RelAtt
## Estimate Std. Error t value Pr(>|t|)
## Intercept -4.959461e-16 0.06259097 -7.923604e-15 1.000000e+00
## Functional 2.919048e-01 0.07033122 4.150430e+00 4.917272e-05
## Emotional 1.018590e-01 0.06775716 1.503295e+00 1.343483e-01
## P 8.147957e-02 0.06502862 1.252980e+00 2.116832e-01
## Q 1.538713e-01 0.06429963 2.393035e+00 1.763919e-02
## PAvail 1.678823e-02 0.06887828 2.437377e-01 8.076851e-01
## CS 1.574907e-01 0.06883792 2.287848e+00 2.319747e-02
##
## $CustLoyaltyBeh
## Estimate Std. Error t value Pr(>|t|)
## Intercept 1.817288e-16 0.05878245 3.091549e-15 1.00000e+00
## RelAtt 5.432341e-01 0.05878245 9.241434e+00 3.27723e-17
FabianPLS$outer_model
## name block weight loading communality redundancy
## 1 OS09_06 Functional 0.4896566 0.8675000 0.7525562 0.0000000
## 2 OS09_07 Functional 0.4771786 0.8877681 0.7881321 0.0000000
## 3 OS09_08 Functional 0.2334040 0.6495133 0.4218676 0.0000000
## 4 OS10_04 Emotional 0.5760876 0.9187988 0.8441912 0.0000000
## 5 OS10_05 Emotional 0.5227425 0.9004268 0.8107685 0.0000000
## 6 OS09_01 P 1.0000000 1.0000000 1.0000000 0.0000000
## 7 OS09_02 Q 1.0000000 1.0000000 1.0000000 0.0000000
## 8 OS09_03 PAvail 1.0000000 1.0000000 1.0000000 0.0000000
## 9 OS09_04 CS 0.4720852 0.7960812 0.6337453 0.0000000
## 10 OS10_03 CS 0.6864606 0.9092756 0.8267821 0.0000000
## 11 SA04_01 RelAtt 0.3704118 0.8213438 0.6746056 0.1486775
## 12 SA04_02 RelAtt 0.3924540 0.8959708 0.8027637 0.1769225
## 13 SA04_04 RelAtt 0.4095713 0.8402377 0.7059993 0.1555964
## 14 SA05_02 CustLoyaltyBeh 0.2617525 0.7892982 0.6229917 0.1838469
## 15 SA05_03 CustLoyaltyBeh 0.2041391 0.7399437 0.5475167 0.1615740
## 16 SA05_04 CustLoyaltyBeh 0.2027684 0.7739764 0.5990394 0.1767785
## 17 SA05_05 CustLoyaltyBeh 0.1600152 0.6972164 0.4861107 0.1434529
## 18 SA05_06 CustLoyaltyBeh 0.2644280 0.7937675 0.6300669 0.1859348
## 19 SA05_08 CustLoyaltyBeh 0.2197958 0.7459208 0.5563979 0.1641948
FabianPLS$path_coefs
## Functional Emotional P Q PAvail CS
## Functional 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## Emotional 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## P 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## Q 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## PAvail 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## CS 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## RelAtt 0.2919048 0.101859 0.08147957 0.1538713 0.01678823 0.1574907
## CustLoyaltyBeh 0.0000000 0.000000 0.00000000 0.0000000 0.00000000 0.0000000
## RelAtt CustLoyaltyBeh
## Functional 0.0000000 0
## Emotional 0.0000000 0
## P 0.0000000 0
## Q 0.0000000 0
## PAvail 0.0000000 0
## CS 0.0000000 0
## RelAtt 0.0000000 0
## CustLoyaltyBeh 0.5432341 0
FabianPLS$gof
## [1] 0.4152416
FabianPLS$effects
## relationships direct indirect total
## 1 Functional -> Emotional 0.00000000 0.00000000 0.00000000
## 2 Functional -> P 0.00000000 0.00000000 0.00000000
## 3 Functional -> Q 0.00000000 0.00000000 0.00000000
## 4 Functional -> PAvail 0.00000000 0.00000000 0.00000000
## 5 Functional -> CS 0.00000000 0.00000000 0.00000000
## 6 Functional -> RelAtt 0.29190481 0.00000000 0.29190481
## 7 Functional -> CustLoyaltyBeh 0.00000000 0.15857264 0.15857264
## 8 Emotional -> P 0.00000000 0.00000000 0.00000000
## 9 Emotional -> Q 0.00000000 0.00000000 0.00000000
## 10 Emotional -> PAvail 0.00000000 0.00000000 0.00000000
## 11 Emotional -> CS 0.00000000 0.00000000 0.00000000
## 12 Emotional -> RelAtt 0.10185899 0.00000000 0.10185899
## 13 Emotional -> CustLoyaltyBeh 0.00000000 0.05533327 0.05533327
## 14 P -> Q 0.00000000 0.00000000 0.00000000
## 15 P -> PAvail 0.00000000 0.00000000 0.00000000
## 16 P -> CS 0.00000000 0.00000000 0.00000000
## 17 P -> RelAtt 0.08147957 0.00000000 0.08147957
## 18 P -> CustLoyaltyBeh 0.00000000 0.04426248 0.04426248
## 19 Q -> PAvail 0.00000000 0.00000000 0.00000000
## 20 Q -> CS 0.00000000 0.00000000 0.00000000
## 21 Q -> RelAtt 0.15387127 0.00000000 0.15387127
## 22 Q -> CustLoyaltyBeh 0.00000000 0.08358812 0.08358812
## 23 PAvail -> CS 0.00000000 0.00000000 0.00000000
## 24 PAvail -> RelAtt 0.01678823 0.00000000 0.01678823
## 25 PAvail -> CustLoyaltyBeh 0.00000000 0.00911994 0.00911994
## 26 CS -> RelAtt 0.15749068 0.00000000 0.15749068
## 27 CS -> CustLoyaltyBeh 0.00000000 0.08555430 0.08555430
## 28 RelAtt -> CustLoyaltyBeh 0.54323409 0.00000000 0.54323409
FabianPLS$inner_summary
## Type R2 Block_Communality Mean_Redundancy AVE
## Functional Exogenous 0.0000000 0.6541853 0.0000000 0.6541853
## Emotional Exogenous 0.0000000 0.8274798 0.0000000 0.8274798
## P Exogenous 0.0000000 1.0000000 0.0000000 1.0000000
## Q Exogenous 0.0000000 1.0000000 0.0000000 1.0000000
## PAvail Exogenous 0.0000000 1.0000000 0.0000000 1.0000000
## CS Exogenous 0.0000000 0.7302637 0.0000000 0.7302637
## RelAtt Endogenous 0.2203917 0.7277896 0.1603988 0.7277896
## CustLoyaltyBeh Endogenous 0.2951033 0.5736872 0.1692970 0.5736872
plot(FabianPLS)
