I. gói PLSPM
1. Tải dữ liệu
library(thongke.club)
library(plspm)
dulieu <-thangdo
head(dulieu)
## b1 b2 b3 b4 b5 c1 c2 c3 c4 c5 d1 d2 d3 d4 d5 e1 e2 e3 e4 e5
## [1,] 1 1 1 1 1 4 4 4 4 4 1 1 1 1 1 4 4 4 4 4
## [2,] 4 4 4 4 4 5 1 1 5 4 4 4 4 4 4 4 5 4 5 5
## [3,] 1 1 1 1 1 4 5 5 4 5 5 5 5 5 5 1 1 5 1 1
## [4,] 5 5 5 5 5 5 4 5 4 5 4 4 4 4 4 1 1 1 1 4
## [5,] 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 1 4 1 5 5
## [6,] 4 1 1 1 1 1 1 1 5 1 4 1 5 1 4 1 5 1 1 1
2. Tạo ma trận path kết nối
tinhyeu <- c(0,0,0,0)
vatchat <- c(1,0,0,0)
quanhe <- c(1,1,0,0)
kethon <- c(1,1,1,0)
mohinh = rbind(tinhyeu, vatchat, quanhe,kethon)
colnames(mohinh) = rownames(mohinh)
mohinh
## tinhyeu vatchat quanhe kethon
## tinhyeu 0 0 0 0
## vatchat 1 0 0 0
## quanhe 1 1 0 0
## kethon 1 1 1 0
innerplot(mohinh)
3. Gắn biến con là biến tiềm ẩn
biencon = list(1:5, 6:10, 11:15, 16:20) # Cách 1
biencon2 = list(c("b1","b2","b3","b4","b5"),
c("c1","c2","c3","c4","c5"),
c("d1","d2","d3","d4","d5"),
c("e1","e2","e3","e4","e5")
) # Cách 2
modedo <- c("A","A","A","A")
4. Chạy SEM
plssem <- plspm(Data=dulieu, path_matrix=mohinh, blocks=biencon, modes=modedo)
names(plssem)
## [1] "outer_model" "inner_model" "path_coefs" "scores"
## [5] "crossloadings" "inner_summary" "effects" "unidim"
## [9] "gof" "boot" "data" "manifests"
## [13] "model"
plssem$path_coefs
## tinhyeu vatchat quanhe kethon
## tinhyeu 0.0000000 0.0000000 0.000000 0
## vatchat 0.1773787 0.0000000 0.000000 0
## quanhe 0.1926483 0.2390046 0.000000 0
## kethon 0.1231672 0.1144324 0.140508 0
plssem$inner_model
## $vatchat
## Estimate Std. Error t value Pr(>|t|)
## Intercept 7.868872e-16 0.04933061 1.595129e-14 1.000000000
## tinhyeu 1.773787e-01 0.04933061 3.595713e+00 0.000364162
##
## $quanhe
## Estimate Std. Error t value Pr(>|t|)
## Intercept 1.233396e-15 0.04733261 2.605806e-14 1.000000e+00
## tinhyeu 1.926483e-01 0.04809527 4.005555e+00 7.387157e-05
## vatchat 2.390046e-01 0.04809527 4.969399e+00 1.000431e-06
##
## $kethon
## Estimate Std. Error t value Pr(>|t|)
## Intercept -7.116874e-16 0.04846306 -1.468515e-14 1.000000000
## tinhyeu 1.231672e-01 0.05022916 2.452106e+00 0.014633121
## vatchat 1.144324e-01 0.05075241 2.254719e+00 0.024696638
## quanhe 1.405080e-01 0.05138723 2.734298e+00 0.006531991
5. Vẽ đồ thị
plot(plssem)
plot(plssem, what = "loadings", arr.width = 0.1)
plot(plssem, what = "weights", arr.width = 0.1)
II Gói CSEM
Tạo mô hình
library(cSEM)
##
## Attaching package: 'cSEM'
## The following object is masked from 'package:stats':
##
## predict
xaydung <- "
kethon ~ tinhyeu + vatchat + quanhe
quanhe ~ tinhyeu + vatchat
tinhyeu =~ b1 + b2 + b3 + b4 + b5
vatchat =~ c1 + c2 +c3 +c4 +c5
quanhe =~ d1 + d2 +d3 +d4 +d5
kethon =~ e1 + e2 +e3 +e4 +e5
"
csem(.data = dulieu, .model = xaydung) ->sem
sem
## ________________________________________________________________________________
## ----------------------------------- Overview -----------------------------------
##
## Estimation was successful.
##
## The result is a list of class cSEMResults with list elements:
##
## - Estimates
## - Information
##
## To get an overview or help type:
##
## - ?cSEMResults
## - str(<object-name>)
## - listviewer::jsondedit(<object-name>, mode = 'view')
##
## If you wish to access the list elements directly type e.g.
##
## - <object-name>$Estimates
##
## Available postestimation commands:
##
## - assess(<object-name>)
## - infer(<object-name)
## - predict(<object-name>)
## - summarize(<object-name>)
## - verify(<object-name>)
## ________________________________________________________________________________
assess(sem)
## ________________________________________________________________________________
##
## Construct AVE R2 R2_adj
## tinhyeu 0.6509 NA NA
## vatchat 0.6102 NA NA
## quanhe 0.5558 0.1377 0.1333
## kethon 0.5728 0.0851 0.0781
##
## -------------- Common (internal consistency) reliability estimates -------------
##
## Construct Cronbachs_alpha Joereskogs_rho Dijkstra-Henselers_rho_A
## tinhyeu 0.9040 0.9007 0.9200
## vatchat 0.8860 0.8848 0.8990
## quanhe 0.8630 0.8601 0.8738
## kethon 0.8717 0.8669 0.8849
##
## ----------- Alternative (internal consistency) reliability estimates -----------
##
## Construct RhoC RhoC_mm RhoC_weighted
## tinhyeu 0.9007 0.8766 0.9200
## vatchat 0.8848 0.8716 0.8990
## quanhe 0.8601 0.8453 0.8738
## kethon 0.8669 0.8424 0.8849
##
## Construct RhoC_weighted_mm RhoT RhoT_weighted
## tinhyeu 0.9200 0.9040 0.8980
## vatchat 0.8990 0.8860 0.8796
## quanhe 0.8738 0.8630 0.8612
## kethon 0.8849 0.8717 0.8652
##
## --------------------------- Distance and fit measures --------------------------
##
## Geodesic distance = 0.4402441
## Squared Euclidian distance = 0.6614846
## ML distance = 2.535448
##
## Chi_square = 1011.644
## Chi_square_df = 6.16856
## CFI = 0.798196
## CN = 77.86315
## GFI = 0.717478
## IFI = 0.7994375
## NFI = 0.7695747
## NNFI = 0.7662027
## RMSEA = 0.1138147
## RMS_theta = 0.04684337
## SRMR = 0.05612421
##
## Degrees of freedom = 164
##
## --------------------------- Model selection criteria ---------------------------
##
## Construct AIC AICc AICu
## quanhe -54.2566 347.8447 -51.2453
## kethon -28.5653 373.5870 -24.5452
##
## Construct BIC FPE GM
## quanhe -42.2822 0.8732 416.7738
## kethon -12.5994 0.9311 422.8978
##
## Construct HQ HQc Mallows_Cp
## quanhe -49.5146 -49.3786 4.7994
## kethon -22.2426 -22.0245 6.9319
##
## ----------------------- Variance inflation factors (VIFs) ----------------------
##
## Dependent construct: 'quanhe'
##
## Independent construct VIF value
## tinhyeu 1.0383
## vatchat 1.0383
##
## Dependent construct: 'kethon'
##
## Independent construct VIF value
## tinhyeu 1.0906
## vatchat 1.1205
## quanhe 1.1597
##
## -------------------------- Effect sizes (Cohen's f^2) --------------------------
##
## Dependent construct: 'quanhe'
##
## Independent construct f^2
## tinhyeu 0.0504
## vatchat 0.0791
##
## Dependent construct: 'kethon'
##
## Independent construct f^2
## tinhyeu 0.0170
## vatchat 0.0146
## quanhe 0.0232
##
## ------------------------------ Validity assessment -----------------------------
##
## Heterotrait-monotrait ratio of correlations matrix (HTMT matrix)
##
## tinhyeu vatchat quanhe kethon
## tinhyeu 1.0000000 0.0000000 0.0000000 0
## vatchat 0.1852346 1.0000000 0.0000000 0
## quanhe 0.2620690 0.2984797 1.0000000 0
## kethon 0.1914605 0.1883519 0.2209418 1
##
##
## Fornell-Larcker matrix
##
## tinhyeu vatchat quanhe kethon
## tinhyeu 0.65091305 0.03687885 0.06943813 0.03798706
## vatchat 0.03687885 0.61016453 0.09424227 0.03815303
## quanhe 0.06943813 0.09424227 0.55584981 0.05225522
## kethon 0.03798706 0.03815303 0.05225522 0.57277259
##
##
## ------------------------------------ Effects -----------------------------------
##
## Estimated total effects:
## ========================
## Total effect Estimate Std. error t-stat. p-value
## quanhe ~ tinhyeu 0.2124 NA NA NA
## quanhe ~ vatchat 0.2662 NA NA NA
## kethon ~ tinhyeu 0.1634 NA NA NA
## kethon ~ vatchat 0.1639 NA NA NA
## kethon ~ quanhe 0.1568 NA NA NA
##
## Estimated indirect effects:
## ===========================
## Indirect effect Estimate Std. error t-stat. p-value
## kethon ~ tinhyeu 0.0333 NA NA NA
## kethon ~ vatchat 0.0417 NA NA NA
## ________________________________________________________________________________
infer(sem)
## $Path_estimates
## $Path_estimates$mean
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.2494995 0.2660255 0.1259391 0.1230235
## kethon ~ quanhe
## 0.1556185
##
## $Path_estimates$sd
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.08911372 0.07480466 0.11339972 0.07543273
## kethon ~ quanhe
## 0.09398952
##
## $Path_estimates$bias
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.0371094547 -0.0001763944 -0.0041791263 0.0008160946
## kethon ~ quanhe
## -0.0011715255
##
## $Path_estimates$CI_standard_z
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.0006209511 0.1197639 -0.08796203 -0.02645409
## 95%U 0.3499403165 0.4129928 0.35655671 0.26923679
## kethon ~ quanhe
## 95%L -0.02625449
## 95%U 0.34217766
##
## $Path_estimates$CI_standard_t
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 8.953823e-05 0.1193178 -0.08863827 -0.02690392
## 95%U 3.504717e-01 0.4134389 0.35723295 0.26968662
## kethon ~ quanhe
## 95%L -0.02681498
## 95%U 0.34273815
##
## $Path_estimates$CI_percentile
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.06446735 0.1269921 -0.09736324 -0.01850896
## 95%U 0.42518491 0.4083110 0.32837870 0.27739839
## kethon ~ quanhe
## 95%L -0.03391932
## 95%U 0.31299759
##
## $Path_estimates$CI_basic
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.07462364 0.1244457 -0.05978402 -0.03461569
## 95%U 0.28609392 0.4057646 0.36595792 0.26129167
## kethon ~ quanhe
## 95%L 0.002925588
## 95%U 0.349842490
##
## $Path_estimates$CI_bc
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.02234077 0.1505645 -0.08023072 -0.01327298
## 95%U 0.33964983 0.4331353 0.34756674 0.28438498
## kethon ~ quanhe
## 95%L -0.008214568
## 95%U 0.319268278
##
##
## $Loading_estimates
## $Loading_estimates$mean
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 0.6740274 0.6549043 0.9041998 0.8782427 0.8406896
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 0.8429938 0.8899842 0.6753140 0.6380948 0.7430526
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 0.6714411 0.8526668 0.6836038 0.7849968 0.6737113
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 0.6939145 0.5802295 0.7582666 0.8504661 0.7658074
##
## $Loading_estimates$sd
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 0.15459725 0.10786310 0.06425695 0.07762044 0.08310915
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 0.10208702 0.06773833 0.15562951 0.19246998 0.10735321
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 0.11220347 0.10098047 0.14595800 0.10250858 0.12272662
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 0.13466765 0.19152516 0.19440857 0.08145328 0.14114345
##
## $Loading_estimates$bias
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 0.034155159 0.019509384 -0.037374467 -0.037523802 -0.005603306
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## -0.039414593 -0.028033529 0.003132731 -0.019076041 0.004323698
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 0.011899058 -0.059392347 0.008725819 -0.001695912 0.011853550
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 0.002161173 0.054635786 -0.078341172 -0.028696380 -0.031846928
##
## $Loading_estimates$CI_standard_z
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 95%L 0.3027120 0.4044777 0.8530074 0.801157 0.6890053
## 95%U 0.9087221 0.8272933 1.1048900 1.105424 1.0147872
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 95%L 0.7217361 0.8132866 0.3640203 0.2990126 0.5239968
## 95%U 1.1219099 1.0788160 0.9740768 1.0534811 0.9448136
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 95%L 0.4277283 0.7735334 0.3800798 0.5874754 0.4094645
## 95%U 0.8675578 1.1693696 0.9522246 0.9893017 0.8905440
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 95%L 0.4256484 0.09557554 0.5339151 0.7482134 0.5528651
## 95%U 0.9535359 0.84634036 1.2959827 1.0675043 1.1061373
##
## $Loading_estimates$CI_standard_t
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 95%L 0.3017901 0.4038345 0.8526242 0.8006942 0.6885097
## 95%U 0.9096440 0.8279365 1.1052732 1.1058865 1.0152828
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 95%L 0.7211273 0.8128826 0.3630922 0.2978648 0.5233566
## 95%U 1.1225186 1.0792199 0.9750048 1.0546288 0.9454538
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 95%L 0.4270592 0.7729312 0.3792094 0.5868642 0.4087326
## 95%U 0.8682269 1.1699718 0.9530950 0.9899130 0.8912759
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 95%L 0.4248454 0.09443341 0.5327558 0.7477276 0.5520234
## 95%U 0.9543390 0.84748248 1.2971420 1.0679901 1.1069790
##
## $Loading_estimates$CI_percentile
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 95%L 0.3218452 0.4035077 0.7566441 0.6891713 0.6550266
## 95%U 0.9246967 0.8244747 0.9972052 0.9868332 0.9686526
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 95%L 0.6070540 0.7427446 0.3586935 0.1798762 0.4824553
## 95%U 0.9864303 0.9950636 0.9338252 0.9353399 0.9154138
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 95%L 0.4427773 0.6425269 0.3366161 0.5597162 0.4184957
## 95%U 0.8612584 0.9961876 0.8949273 0.9556350 0.8908548
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 95%L 0.3727924 0.2180608 0.2684097 0.6839412 0.4455562
## 95%U 0.9043029 0.9589945 0.9663821 0.9809082 0.9670404
##
## $Loading_estimates$CI_basic
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 95%L 0.2867375 0.4072964 0.9606922 0.9197474 0.7351399
## 95%U 0.8895889 0.8282634 1.2012533 1.2174093 1.0487659
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 95%L 0.8572156 0.897039 0.4042719 0.4171538 0.5533966
## 95%U 1.2365920 1.149358 0.9794035 1.1726175 0.9863551
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 95%L 0.4340277 0.9467154 0.4373771 0.6211422 0.4091537
## 95%U 0.8525087 1.3003761 0.9956882 1.0170610 0.8815128
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 95%L 0.4748815 -0.01707863 0.8635158 0.8348095 0.691962
## 95%U 1.0063919 0.72385508 1.5614881 1.1317765 1.213446
##
## $Loading_estimates$CI_bc
## tinhyeu =~ b1 tinhyeu =~ b2 tinhyeu =~ b3 tinhyeu =~ b4 tinhyeu =~ b5
## 95%L 0.2135521 0.2585891 0.8446065 0.7800302 0.6447499
## 95%U 0.8657974 0.7731241 0.9996237 0.9962596 0.9674030
## vatchat =~ c1 vatchat =~ c2 vatchat =~ c3 vatchat =~ c4 vatchat =~ c5
## 95%L 0.7251458 0.7920750 0.3446513 0.1303713 0.404037
## 95%U 0.9983052 0.9980398 0.9257590 0.9224349 0.871854
## quanhe =~ d1 quanhe =~ d2 quanhe =~ d3 quanhe =~ d4 quanhe =~ d5
## 95%L 0.3842413 0.7401677 0.2493089 0.5352195 0.4009740
## 95%U 0.8197038 0.9996104 0.8815896 0.9436950 0.8862208
## kethon =~ e1 kethon =~ e2 kethon =~ e3 kethon =~ e4 kethon =~ e5
## 95%L 0.2283444 0.1785048 0.4054345 0.7326665 0.4455562
## 95%U 0.8726149 0.8697241 0.9850692 0.9884257 0.9670404
##
##
## $Weight_estimates
## $Weight_estimates$mean
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 0.1997296 0.1939337 0.2689111 0.2612813 0.2496491
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 0.2666634 0.2828830 0.2146156 0.1999280 0.2350937
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 0.2260395 0.2889029 0.2294319 0.2658141 0.2274773
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 0.2316010 0.1947621 0.2525262 0.2856852 0.2572882
##
## $Weight_estimates$sd
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 0.04503803 0.02900763 0.02291923 0.02741507 0.02416476
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 0.03056567 0.03286484 0.05203727 0.06299498 0.03101031
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 0.03365226 0.04119677 0.04402174 0.03989744 0.04123319
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 0.04200988 0.06584204 0.06473281 0.03272436 0.05106545
##
## $Weight_estimates$bias
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 0.0111553203 0.0066789276 -0.0085765664 -0.0086007402 0.0002413628
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## -0.0075756775 -0.0024229084 0.0057119379 -0.0043106345 0.0055079695
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 0.0042104944 -0.0178572273 0.0024448456 0.0012195123 0.0048694692
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 0.0043769364 0.0221174441 -0.0222789674 -0.0030982272 -0.0047217919
##
## $Weight_estimates$CI_standard_z
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 95%L 0.08914604 0.1237219 0.2411434 0.2247502 0.2018043
## 95%U 0.26569187 0.2374298 0.3309851 0.3322153 0.2965284
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 95%L 0.2219071 0.2233149 0.1012006 0.08508142 0.1632986
## 95%U 0.3417224 0.3521427 0.3051829 0.33201720 0.2848568
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 95%L 0.1516613 0.2438731 0.1382612 0.1851775 0.1369228
## 95%U 0.2835758 0.4053615 0.3108233 0.3415726 0.2985540
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 95%L 0.1405093 0.02147923 0.1702102 0.2277431 0.1666453
## 95%U 0.3051850 0.27957529 0.4239582 0.3560202 0.3668182
##
## $Weight_estimates$CI_standard_t
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 95%L 0.08887746 0.1235490 0.2410067 0.2245867 0.2016602
## 95%U 0.26596045 0.2376028 0.3311218 0.3323788 0.2966725
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 95%L 0.2217249 0.2231190 0.1008903 0.08470576 0.1631137
## 95%U 0.3419047 0.3523387 0.3054933 0.33239285 0.2850417
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 95%L 0.1514606 0.2436275 0.1379987 0.1849396 0.1366770
## 95%U 0.2837764 0.4056072 0.3110858 0.3418105 0.2987999
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 95%L 0.1402588 0.0210866 0.1698242 0.2275479 0.1663408
## 95%U 0.3054355 0.2799679 0.4243442 0.3562153 0.3671227
##
## $Weight_estimates$CI_percentile
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 95%L 0.1038014 0.1301141 0.2260646 0.2067239 0.1977810
## 95%U 0.2799374 0.2391647 0.3142949 0.3133276 0.2960984
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 95%L 0.1945302 0.2422740 0.1152069 0.05855691 0.1647736
## 95%U 0.3195342 0.3259231 0.3016976 0.29025011 0.2861767
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 95%L 0.1583553 0.2148788 0.1310450 0.1875727 0.1461595
## 95%U 0.2899631 0.3738389 0.2999249 0.3460029 0.3093102
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 95%L 0.131981 0.07932969 0.09573362 0.2293328 0.1512864
## 95%U 0.296491 0.32494041 0.32411067 0.3489796 0.3531979
##
## $Weight_estimates$CI_basic
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 95%L 0.07490051 0.1219870 0.2578336 0.2436379 0.2022343
## 95%U 0.25103647 0.2310377 0.3460639 0.3502416 0.3005518
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 95%L 0.2440953 0.2495346 0.1046859 0.1268485 0.1619787
## 95%U 0.3690993 0.3331836 0.2911766 0.3585417 0.2833819
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 95%L 0.1452740 0.2753957 0.1491596 0.1807473 0.1261666
## 95%U 0.2768817 0.4343558 0.3180395 0.3391774 0.2893174
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 95%L 0.1492033 -0.02388589 0.2700577 0.2347836 0.1802656
## 95%U 0.3137133 0.22172483 0.4984347 0.3544305 0.3821770
##
## $Weight_estimates$CI_bc
## tinhyeu <~ b1 tinhyeu <~ b2 tinhyeu <~ b3 tinhyeu <~ b4 tinhyeu <~ b5
## 95%L 0.07480304 0.08522987 0.2404785 0.2331209 0.1901221
## 95%U 0.25860402 0.22259488 0.3203906 0.3430478 0.2943554
## vatchat <~ c1 vatchat <~ c2 vatchat <~ c3 vatchat <~ c4 vatchat <~ c5
## 95%L 0.2072696 0.2482622 0.1105068 0.04190352 0.1371975
## 95%U 0.3220436 0.3401848 0.2965137 0.28671260 0.2732820
## quanhe <~ d1 quanhe <~ d2 quanhe <~ d3 quanhe <~ d4 quanhe <~ d5
## 95%L 0.1367844 0.2371841 0.09865163 0.1875727 0.1453781
## 95%U 0.2814676 0.3936658 0.28915414 0.3460029 0.3034556
## kethon <~ e1 kethon <~ e2 kethon <~ e3 kethon <~ e4 kethon <~ e5
## 95%L 0.06926474 0.06128203 0.1317282 0.2371973 0.1614064
## 95%U 0.27535310 0.29991658 0.3300471 0.3608137 0.3665546
##
##
## $Exo_construct_correlation
## $Exo_construct_correlation$mean
## tinhyeu ~~ vatchat
## 0.1948902
##
## $Exo_construct_correlation$sd
## tinhyeu ~~ vatchat
## 0.07146804
##
## $Exo_construct_correlation$bias
## tinhyeu ~~ vatchat
## 0.002851513
##
## $Exo_construct_correlation$CI_standard_z
## tinhyeu ~~ vatchat
## 95%L 0.04911237
## 95%U 0.32926192
##
## $Exo_construct_correlation$CI_standard_t
## tinhyeu ~~ vatchat
## 95%L 0.04868618
## 95%U 0.32968811
##
## $Exo_construct_correlation$CI_percentile
## tinhyeu ~~ vatchat
## 95%L 0.06492928
## 95%U 0.35272247
##
## $Exo_construct_correlation$CI_basic
## tinhyeu ~~ vatchat
## 95%L 0.02565182
## 95%U 0.31344501
##
## $Exo_construct_correlation$CI_bc
## tinhyeu ~~ vatchat
## 95%L 0.07057154
## 95%U 0.35883337
##
##
## $Indirect_effect
## $Indirect_effect$mean
## kethon ~ tinhyeu kethon ~ vatchat
## 0.04004392 0.04207745
##
## $Indirect_effect$sd
## kethon ~ tinhyeu kethon ~ vatchat
## 0.03033654 0.03022305
##
## $Indirect_effect$bias
## kethon ~ tinhyeu kethon ~ vatchat
## 0.0067432687 0.0003396312
##
## $Indirect_effect$CI_standard_z
## kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.03290114 -0.0178379
## 95%U 0.08601591 0.1006343
##
## $Indirect_effect$CI_standard_t
## kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.03308205 -0.01801813
## 95%U 0.08619682 0.10081450
##
## $Indirect_effect$CI_percentile
## kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.007095233 -0.007442844
## 95%U 0.099524730 0.100910079
##
## $Indirect_effect$CI_basic
## kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.04640996 -0.01811371
## 95%U 0.06021001 0.09023922
##
## $Indirect_effect$CI_bc
## kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.01185069 0.0003523899
## 95%U 0.08982306 0.1156087371
##
##
## $Total_effect
## $Total_effect$mean
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.2494995 0.2660255 0.1659830 0.1651010
## kethon ~ quanhe
## 0.1556185
##
## $Total_effect$sd
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.08911372 0.07480466 0.09340488 0.08308282
## kethon ~ quanhe
## 0.09398952
##
## $Total_effect$bias
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 0.0371094547 -0.0001763944 0.0025641424 0.0011557257
## kethon ~ quanhe
## -0.0011715255
##
## $Total_effect$CI_standard_z
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.0006209511 0.1197639 -0.02221547 -4.979687e-05
## 95%U 0.3499403165 0.4129928 0.34392492 3.256289e-01
## kethon ~ quanhe
## 95%L -0.02625449
## 95%U 0.34217766
##
## $Total_effect$CI_standard_t
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 8.953823e-05 0.1193178 -0.02277247 -0.0005452456
## 95%U 3.504717e-01 0.4134389 0.34448192 0.3261243234
## kethon ~ quanhe
## 95%L -0.02681498
## 95%U 0.34273815
##
## $Total_effect$CI_percentile
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.06446735 0.1269921 -0.009894292 -0.018925
## 95%U 0.42518491 0.4083110 0.329880506 0.315749
## kethon ~ quanhe
## 95%L -0.03391932
## 95%U 0.31299759
##
## $Total_effect$CI_basic
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L -0.07462364 0.1244457 -0.008171052 0.009830115
## 95%U 0.28609392 0.4057646 0.331603745 0.344504078
## kethon ~ quanhe
## 95%L 0.002925588
## 95%U 0.349842490
##
## $Total_effect$CI_bc
## quanhe ~ tinhyeu quanhe ~ vatchat kethon ~ tinhyeu kethon ~ vatchat
## 95%L 0.02234077 0.1505645 -0.0145610 -0.03854867
## 95%U 0.33964983 0.4331353 0.3277747 0.30360265
## kethon ~ quanhe
## 95%L -0.008214568
## 95%U 0.319268278
##
##
## attr(,"class")
## [1] "cSEMInfer"
#predict(sem)
summarize(sem)
## ________________________________________________________________________________
## ----------------------------------- Overview -----------------------------------
##
## General information:
## ------------------------
## Estimation status = Ok
## Number of observations = 400
## Weight estimator = PLS-PM
## Inner weighting scheme = "path"
## Type of indicator correlation = Pearson
## Path model estimator = OLS
## Second-order approach = NA
## Type of path model = Linear
## Disattenuated = Yes (PLSc)
##
## Construct details:
## ------------------
## Name Modeled as Order Mode
##
## tinhyeu Common factor First order "modeA"
## vatchat Common factor First order "modeA"
## quanhe Common factor First order "modeA"
## kethon Common factor First order "modeA"
##
## ----------------------------------- Estimates ----------------------------------
##
## Estimated path coefficients:
## ============================
## Path Estimate Std. error t-stat. p-value
## quanhe ~ tinhyeu 0.2124 NA NA NA
## quanhe ~ vatchat 0.2662 NA NA NA
## kethon ~ tinhyeu 0.1301 NA NA NA
## kethon ~ vatchat 0.1222 NA NA NA
## kethon ~ quanhe 0.1568 NA NA NA
##
## Estimated loadings:
## ===================
## Loading Estimate Std. error t-stat. p-value
## tinhyeu =~ b1 0.6399 NA NA NA
## tinhyeu =~ b2 0.6354 NA NA NA
## tinhyeu =~ b3 0.9416 NA NA NA
## tinhyeu =~ b4 0.9158 NA NA NA
## tinhyeu =~ b5 0.8463 NA NA NA
## vatchat =~ c1 0.8824 NA NA NA
## vatchat =~ c2 0.9180 NA NA NA
## vatchat =~ c3 0.6722 NA NA NA
## vatchat =~ c4 0.6572 NA NA NA
## vatchat =~ c5 0.7387 NA NA NA
## quanhe =~ d1 0.6595 NA NA NA
## quanhe =~ d2 0.9121 NA NA NA
## quanhe =~ d3 0.6749 NA NA NA
## quanhe =~ d4 0.7867 NA NA NA
## quanhe =~ d5 0.6619 NA NA NA
## kethon =~ e1 0.6918 NA NA NA
## kethon =~ e2 0.5256 NA NA NA
## kethon =~ e3 0.8366 NA NA NA
## kethon =~ e4 0.8792 NA NA NA
## kethon =~ e5 0.7977 NA NA NA
##
## Estimated weights:
## ==================
## Weight Estimate Std. error t-stat. p-value
## tinhyeu <~ b1 0.1886 NA NA NA
## tinhyeu <~ b2 0.1873 NA NA NA
## tinhyeu <~ b3 0.2775 NA NA NA
## tinhyeu <~ b4 0.2699 NA NA NA
## tinhyeu <~ b5 0.2494 NA NA NA
## vatchat <~ c1 0.2742 NA NA NA
## vatchat <~ c2 0.2853 NA NA NA
## vatchat <~ c3 0.2089 NA NA NA
## vatchat <~ c4 0.2042 NA NA NA
## vatchat <~ c5 0.2296 NA NA NA
## quanhe <~ d1 0.2218 NA NA NA
## quanhe <~ d2 0.3068 NA NA NA
## quanhe <~ d3 0.2270 NA NA NA
## quanhe <~ d4 0.2646 NA NA NA
## quanhe <~ d5 0.2226 NA NA NA
## kethon <~ e1 0.2272 NA NA NA
## kethon <~ e2 0.1726 NA NA NA
## kethon <~ e3 0.2748 NA NA NA
## kethon <~ e4 0.2888 NA NA NA
## kethon <~ e5 0.2620 NA NA NA
##
## Estimated construct correlations:
## =================================
## Correlation Estimate Std. error t-stat. p-value
## tinhyeu ~~ vatchat 0.1920 NA NA NA
##
## ------------------------------------ Effects -----------------------------------
##
## Estimated total effects:
## ========================
## Total effect Estimate Std. error t-stat. p-value
## quanhe ~ tinhyeu 0.2124 NA NA NA
## quanhe ~ vatchat 0.2662 NA NA NA
## kethon ~ tinhyeu 0.1634 NA NA NA
## kethon ~ vatchat 0.1639 NA NA NA
## kethon ~ quanhe 0.1568 NA NA NA
##
## Estimated indirect effects:
## ===========================
## Indirect effect Estimate Std. error t-stat. p-value
## kethon ~ tinhyeu 0.0333 NA NA NA
## kethon ~ vatchat 0.0417 NA NA NA
## ________________________________________________________________________________
#verify(sem)
Tính toán cái cần
calculateAVE(sem)
## tinhyeu vatchat quanhe kethon
## 0.6509130 0.6101645 0.5558498 0.5727726
calculateHTMT(sem)
## tinhyeu vatchat quanhe kethon
## tinhyeu 1.0000000 0.0000000 0.0000000 0
## vatchat 0.1852346 1.0000000 0.0000000 0
## quanhe 0.2620690 0.2984797 1.0000000 0
## kethon 0.1914605 0.1883519 0.2209418 1
doIPMA(sem) ->ipa
## Warning: At least one construct is modeled as common factor,
## IPMA's results are not trustworthy in this case.
ipa
## $Construct
## $Construct$Importance
## tinhyeu vatchat quanhe kethon
## tinhyeu 0.0000000 0.0000000 0.0000000 0
## vatchat 0.0000000 0.0000000 0.0000000 0
## quanhe 0.1937161 0.2502769 0.0000000 0
## kethon 0.1494299 0.1545298 0.1571891 0
##
## $Construct$Performance
## tinhyeu vatchat quanhe kethon
## 4.346821 4.342572 4.345399 4.390101
##
##
## $Indicator
## $Indicator$Importance
## b1 b2 b3 b4 b5 c1
## tinhyeu 0.16508120 0.15656742 0.22766830 0.23403818 0.21664490 0.00000000
## vatchat 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.22837441
## quanhe 0.03197889 0.03032963 0.04410302 0.04533697 0.04196761 0.05715683
## kethon 0.02466807 0.02339586 0.03402046 0.03497231 0.03237324 0.03529066
## c2 c3 c4 c5 d1 d2
## tinhyeu 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## vatchat 0.23152536 0.18039811 0.16839786 0.19130426 0.00000000 0.00000000
## quanhe 0.05794544 0.04514947 0.04214609 0.04787903 0.18352817 0.24743424
## kethon 0.03577757 0.02787689 0.02602249 0.02956221 0.02884863 0.03889397
## d3 d4 d5 e1 e2 e3 e4
## tinhyeu 0.00000000 0.00000000 0.00000000 0.0000000 0.0000000 0.0000000 0.000000
## vatchat 0.00000000 0.00000000 0.00000000 0.0000000 0.0000000 0.0000000 0.000000
## quanhe 0.18755364 0.20927880 0.17220514 0.0000000 0.0000000 0.0000000 0.000000
## kethon 0.02948139 0.03289635 0.02706877 0.1816853 0.1432554 0.2230192 0.233956
## e5
## tinhyeu 0.0000000
## vatchat 0.0000000
## quanhe 0.0000000
## kethon 0.2180841
##
## $Indicator$Performance
## b1 b2 b3 b4 b5 c1 c2 c3 c4 c5 d1
## 4.3725 4.3500 4.3300 4.3400 4.3500 4.3300 4.3325 4.3600 4.3350 4.3600 4.3600
## d2 d3 d4 d5 e1 e2 e3 e4 e5
## 4.3500 4.3475 4.3400 4.3275 4.3775 4.3775 4.4200 4.4025 4.3650
##
##
## $Construct_names
## [1] "tinhyeu" "vatchat" "quanhe" "kethon"
##
## $Indicator_names
## [1] "b1" "b2" "b3" "b4" "b5" "c1" "c2" "c3" "c4" "c5" "d1" "d2" "d3" "d4" "d5"
## [16] "e1" "e2" "e3" "e4" "e5"
##
## attr(,"class")
## [1] "cSEMIPMA"
Bootstrap
resamplecSEMResults(sem) ->bsem
assess(bsem)
## ________________________________________________________________________________
##
## Construct AVE R2 R2_adj
## tinhyeu 0.6509 NA NA
## vatchat 0.6102 NA NA
## quanhe 0.5558 0.1377 0.1333
## kethon 0.5728 0.0851 0.0781
##
## -------------- Common (internal consistency) reliability estimates -------------
##
## Construct Cronbachs_alpha Joereskogs_rho Dijkstra-Henselers_rho_A
## tinhyeu 0.9040 0.9007 0.9200
## vatchat 0.8860 0.8848 0.8990
## quanhe 0.8630 0.8601 0.8738
## kethon 0.8717 0.8669 0.8849
##
## ----------- Alternative (internal consistency) reliability estimates -----------
##
## Construct RhoC RhoC_mm RhoC_weighted
## tinhyeu 0.9007 0.8766 0.9200
## vatchat 0.8848 0.8716 0.8990
## quanhe 0.8601 0.8453 0.8738
## kethon 0.8669 0.8424 0.8849
##
## Construct RhoC_weighted_mm RhoT RhoT_weighted
## tinhyeu 0.9200 0.9040 0.8980
## vatchat 0.8990 0.8860 0.8796
## quanhe 0.8738 0.8630 0.8612
## kethon 0.8849 0.8717 0.8652
##
## --------------------------- Distance and fit measures --------------------------
##
## Geodesic distance = 0.4402441
## Squared Euclidian distance = 0.6614846
## ML distance = 2.535448
##
## Chi_square = 1011.644
## Chi_square_df = 6.16856
## CFI = 0.798196
## CN = 77.86315
## GFI = 0.717478
## IFI = 0.7994375
## NFI = 0.7695747
## NNFI = 0.7662027
## RMSEA = 0.1138147
## RMS_theta = 0.04684337
## SRMR = 0.05612421
##
## Degrees of freedom = 164
##
## --------------------------- Model selection criteria ---------------------------
##
## Construct AIC AICc AICu
## quanhe -54.2566 347.8447 -51.2453
## kethon -28.5653 373.5870 -24.5452
##
## Construct BIC FPE GM
## quanhe -42.2822 0.8732 416.7738
## kethon -12.5994 0.9311 422.8978
##
## Construct HQ HQc Mallows_Cp
## quanhe -49.5146 -49.3786 4.7994
## kethon -22.2426 -22.0245 6.9319
##
## ----------------------- Variance inflation factors (VIFs) ----------------------
##
## Dependent construct: 'quanhe'
##
## Independent construct VIF value
## tinhyeu 1.0383
## vatchat 1.0383
##
## Dependent construct: 'kethon'
##
## Independent construct VIF value
## tinhyeu 1.0906
## vatchat 1.1205
## quanhe 1.1597
##
## -------------------------- Effect sizes (Cohen's f^2) --------------------------
##
## Dependent construct: 'quanhe'
##
## Independent construct f^2
## tinhyeu 0.0504
## vatchat 0.0791
##
## Dependent construct: 'kethon'
##
## Independent construct f^2
## tinhyeu 0.0170
## vatchat 0.0146
## quanhe 0.0232
##
## ------------------------------ Validity assessment -----------------------------
##
## Heterotrait-monotrait ratio of correlations matrix (HTMT matrix)
##
## tinhyeu vatchat quanhe kethon
## tinhyeu 1.0000000 0.0000000 0.0000000 0
## vatchat 0.1852346 1.0000000 0.0000000 0
## quanhe 0.2620690 0.2984797 1.0000000 0
## kethon 0.1914605 0.1883519 0.2209418 1
##
##
## Fornell-Larcker matrix
##
## tinhyeu vatchat quanhe kethon
## tinhyeu 0.65091305 0.03687885 0.06943813 0.03798706
## vatchat 0.03687885 0.61016453 0.09424227 0.03815303
## quanhe 0.06943813 0.09424227 0.55584981 0.05225522
## kethon 0.03798706 0.03815303 0.05225522 0.57277259
##
##
## ------------------------------------ Effects -----------------------------------
##
## Estimated total effects:
## ========================
## Total effect Estimate Std. error t-stat. p-value
## quanhe ~ tinhyeu 0.2124 0.0823 2.5805 0.0099
## quanhe ~ vatchat 0.2662 0.0725 3.6719 0.0002
## kethon ~ tinhyeu 0.1634 0.0973 1.6799 0.0930
## kethon ~ vatchat 0.1639 0.0766 2.1409 0.0323
## kethon ~ quanhe 0.1568 0.0893 1.7550 0.0793
##
## Estimated indirect effects:
## ===========================
## Indirect effect Estimate Std. error t-stat. p-value
## kethon ~ tinhyeu 0.0333 0.0253 1.3179 0.1875
## kethon ~ vatchat 0.0417 0.0285 1.4643 0.1431
## ________________________________________________________________________________