“用SPSS计算Rwg的程序”的版本间的差异

2017年2月28日 (二) 07:48的最新版本

在OB/HRM的研究中，经常需要计算Rwg，而SPSS并没有提供现成的函数来计算Rwg。根据James等的计算公式，我编写了一个计算Rwg的SPSS程序，大家可以参考使用。James L R, Demaree R G, Wolf G. Rwg: An Assessment of within-Group Interrater Agreement. Journal of Applied Psychology, 1993, 78: 306-309

使用说明：将以下表格中的代码复制到SPSS的Synatx窗口，修改相应地方后，就可以直接运行，得到结果。

大家在研究的过程中，可以直接使用。如果您愿意引用一下，更好。引用方式：李超平. (2005) "用SPSS计算Rwg的程序",http://www.obhrm.net/index.php/用SPSS计算Rwg的程序

*******************************************************************

*Rwg的计算程序，及其基本思路.
*第一步，先把数据合并.
*从合并文件计算每一变量的方差.
*计算每一个维度所有变量方差的平均值.
*计算每一个维度的Rwg.
*注意：每一个维度需要一段下面的代码.

*******************************************************************
*读取数据文件.
*需要修改的地方：文件名及其所在路径.

GET FILE=’D:\RUC Files\test.sav’.

*******************************************************************
*根据数据文件中的分组变量对数据进行分组.
*需要修改的地方1：分组变量名称，请将code修改为分组变量.
*需要修改的地方2：每一维度所包括的变量的名称，请将item1,item2,item3,item3……修改为您研究中该维度所包括的变量的名称.
*需要修改的地方3：每一组所包括的样本大小变量，请将case_num修改为您所希望的名称.

AGGREGATE /OUTFILE=’D:\RUC Files\Rwg_aggr.sav’

/BREAK=code

/item1 = SD(item1)

/item2 = SD(item2)

/item3 = SD(item3)

/item4 = SD(item4)

/item5 = SD(item5)

/item6 = SD(item6)

/case_num=N.

GET FILE=’D:\RUC Files\Rwg_aggr.sav’.

*******************************************************************
*计算每一个变量的方差，即标准差的平方.
*需要修改的地方1：请根据维度所包括的变量的名称进行相应的修改.

COMPUTE item1 = item1*item1 .

COMPUTE item2 = item2*item2 .

COMPUTE item3 = item3*item3 .

COMPUTE item4 = item4*item4 .

COMPUTE item5 = item5*item5 .

COMPUTE item6 = item6*item6 .

EXECUTE .

compute abcd=mean(item1,item2,item3,item4,item5,item6).

execute.

*******************************************************************
*为计算Rwg准备.
*请先确定您所采用的评价问卷。如果是5分等级量表，则scale=5；如果是7分等级量表,则scale=7…….
*请确定该维度所包括的题目数目，并将dim_num后面的数字修改为题目数目.
*请将Rwg_item修改为保存该维度Rwg值的变量名称.

compute scale=5.

compute dim_num=6.

compute s2=abcd.

execute.

*******************************************************************
*计算Rwg，这部分不需要修改.

compute Qeq=(scale*scale-1)/12.

execute.

compute Rwg_item=(dim_num*(1-(s2/Qeq)))/(dim_num*(1-(s2/Qeq))+(s2/Qeq)).

execute.

*******************************************************************
*需要修改的地方：文件名及其所在路径（用来保存最终的Rwg的文件）.

SAVE OUTFILE=’D:\RUC Files\aa.sav’

/DROP=abcd scale dim_num s2 Qeq /COMPRESSED.

GET FILE=’D:\RUC Files\aa.sav’.

“用SPSS计算Rwg的程序”的版本间的差异

2017年2月28日 (二) 07:48的最新版本

导航菜单

个人工具

命名空间

变种

视图

更多

搜索

导航

研究量表

统计分析

学术资源

教学资源

常用工具

@@ 第1行： / 第1行： @@
-{{gongxian|pic=[[文件:lichaoping.jpg|中国人民大学公共管理学院组织与人力资源研究所李超平教授、博士生导师|link=用户:lichaoping]]|title=编写者：|name=[[用户:lichaoping | 李超平]]}}
 在OB/HRM的研究中，经常需要计算Rwg，而SPSS并没有提供现成的函数来计算Rwg。根据James等的计算公式，我编写了一个计算Rwg的SPSS程序，大家可以参考使用。James L R, Demaree R G, Wolf G. Rwg: An Assessment of within-Group Interrater Agreement. Journal of Applied Psychology, 1993, 78: 306-309
+使用说明：<b><font color="blue">将以下表格中的代码复制到SPSS的Synatx窗口，修改相应地方后，就可以直接运行，得到结果。</font></b>
-*Rwg的计算程序，及其基本思路.
+大家在研究的过程中，可以直接使用。如果您愿意引用一下，更好。引用方式：<b><font color="blue"><nowiki>李超平. (2005) "用SPSS计算Rwg的程序",http://www.obhrm.net/index.php/用SPSS计算Rwg的程序</nowiki></font></b>
-*第一步，先把数据合并.
-*从合并文件计算每一变量的方差.
-*计算每一个维度所有变量方差的平均值.
-*计算每一个维度的Rwg.
-*注意：每一个维度需要一段下面的代码.
+{| style=" width: 100%;margin:0px; border: solid 1px #AAAAAA; border-spacing: 5px;"
+|<nowiki>*******************************************************************</nowiki>
+<nowiki>*</nowiki>Rwg的计算程序，及其基本思路.
+<br><nowiki>*</nowiki>第一步，先把数据合并.
+<br><nowiki>*</nowiki>从合并文件计算每一变量的方差.
+<br><nowiki>*</nowiki>计算每一个维度所有变量方差的平均值.
+<br><nowiki>*</nowiki>计算每一个维度的Rwg.
+<br><nowiki>*</nowiki>注意：每一个维度需要一段下面的代码.
-*读取数据文件.
+<br><nowiki>*******************************************************************</nowiki>
-*需要修改的地方：文件名及其所在路径.
+<br><nowiki>*</nowiki>读取数据文件.
+<br><nowiki>*</nowiki>需要修改的地方：文件名及其所在路径.
 GET FILE=’D:\RUC Files\test.sav’.
+<br><nowiki>*******************************************************************</nowiki>
-*根据数据文件中的分组变量对数据进行分组.
+<br><nowiki>*</nowiki>根据数据文件中的分组变量对数据进行分组.
-*需要修改的地方1：分组变量名称，请将code修改为分组变量.
+<br><nowiki>*</nowiki>需要修改的地方1：分组变量名称，请将code修改为分组变量.
-*需要修改的地方2：每一维度所包括的变量的名称，请将item1,item2,item3,item3……修改为您研究中该维度所包括的变量的名称.
+<br><nowiki>*</nowiki>需要修改的地方2：每一维度所包括的变量的名称，请将item1,item2,item3,item3……修改为您研究中该维度所包括的变量的名称.
-*需要修改的地方3：每一组所包括的样本大小变量，请将case_num修改为您所希望的名称.
+<br><nowiki>*</nowiki>需要修改的地方3：每一组所包括的样本大小变量，请将case_num修改为您所希望的名称.
 AGGREGATE
 /OUTFILE=’D:\RUC Files\Rwg_aggr.sav’
 /BREAK=code
 /item1 = SD(item1)
 /item2 = SD(item2)
 /item3 = SD(item3)
 /item4 = SD(item4)
 /item5 = SD(item5)
 /item6 = SD(item6)
 /case_num=N.
 GET FILE=’D:\RUC Files\Rwg_aggr.sav’.
+<br><nowiki>*******************************************************************</nowiki>
+<br><nowiki>*</nowiki>计算每一个变量的方差，即标准差的平方.
+<br><nowiki>*</nowiki>需要修改的地方1：请根据维度所包括的变量的名称进行相应的修改.
-*计算每一个变量的方差，即标准差的平方.
+COMPUTE item1 = item1*item1 .
-*需要修改的地方1：请根据维度所包括的变量的名称进行相应的修改.
-COMPUTE item1 = item1*item1 .
 COMPUTE item2 = item2*item2 .
 COMPUTE item3 = item3*item3 .
 COMPUTE item4 = item4*item4 .
 COMPUTE item5 = item5*item5 .
 COMPUTE item6 = item6*item6 .
 EXECUTE .
 compute abcd=mean(item1,item2,item3,item4,item5,item6).
 execute.
+<br><nowiki>*******************************************************************</nowiki>
+<br><nowiki>*</nowiki>为计算Rwg准备.
+<br><nowiki>*</nowiki>请先确定您所采用的评价问卷。如果是5分等级量表，则scale=5；如果是7分等级量表,则scale=7…….
+<br><nowiki>*</nowiki>请确定该维度所包括的题目数目，并将dim_num后面的数字修改为题目数目.
+<br><nowiki>*</nowiki>请将Rwg_item修改为保存该维度Rwg值的变量名称.
-*为计算Rwg准备.
+compute scale=5.
-*请先确定您所采用的评价问卷。如果是5分等级量表，则scale=5；如果是7分等级量表,则scale=7…….
-*请确定该维度所包括的题目数目，并将dim_num后面的数字修改为题目数目.
-*请将Rwg_item修改为保存该维度Rwg值的变量名称.
-compute scale=5.
 compute dim_num=6.
 compute s2=abcd.
 execute.
+<br><nowiki>*******************************************************************</nowiki>
+<br><nowiki>*</nowiki>计算Rwg，这部分不需要修改.
-*计算Rwg，这部分不需要修改.
+compute Qeq=(scale*scale-1)/12.
-compute Qeq=(scale*scale-1)/12.
 execute.
 compute Rwg_item=(dim_num*(1-(s2/Qeq)))/(dim_num*(1-(s2/Qeq))+(s2/Qeq)).
 execute.
+<br><nowiki>*******************************************************************</nowiki>
+<br><nowiki>*</nowiki>需要修改的地方：文件名及其所在路径（用来保存最终的Rwg的文件）.
-*需要修改的地方：文件名及其所在路径（用来保存最终的Rwg的文件）.
+SAVE OUTFILE=’D:\RUC Files\aa.sav’
-SAVE OUTFILE=’D:\RUC Files\aa.sav’
 /DROP=abcd scale dim_num s2 Qeq /COMPRESSED.
 GET FILE=’D:\RUC Files\aa.sav’.
+|}