作者anovachen ( )
看板Statistics
标题[程式] SEM：算建构信度和平均变异萃取量
时间Thu Nov 28 02:01:35 2013
[软体程式类别]:
R
[程式问题]:
用R辅助CR和AVE的计算。
[软体熟悉度]:
高(1年以上)
[问题叙述]:
使用SIMPLIS算出SEM模型的结果，
要进一步计算Construct reliability和Average variance extracted，
不知道我的算法有没有问题？
SIMPLIS报表(部分结果)
Confirmatory Factor Analysis using SIMPLIS syntax
Completely Standardized Solution
LAMBDA-X
Sat
--------
A1 0.943
A2 0.529
A3 0.837
A4 0.691
A5 0.810
THETA-DELTA
A1 A2 A3 A4 A5
-------- -------- -------- -------- --------
0.111 0.720 0.300 0.522 0.343
[程式范例]:
其中rhoc代表CR，rhov代表AVE。
lambda<-c(0.943,0.529,0.837,0.691,0.810)
theta<-c(0.111,0.720,0.300,0.522,0.343)
lambda2<-lambda^2
rhoc<-sum(lambda)^2/(sum(lambda)^2+sum(theta))
rhov<-sum(lambda2)/(sum(lambda2+theta))
-----------------------------------------------------------------------------
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.255.232.159
1F：推 BugEater:应该是正确的，最後的t要改回theta 11/28 03:06
谢谢!
※ 编辑: anovachen 来自: 111.242.237.57 (11/28 17:33)