用SPSS计算Rwg的程序

来自OBHRM百科
Lichaoping（讨论 | 贡献）2017年2月28日 (二) 07:24的版本

跳转至： 导航、 搜索

在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

*******************************************************************
*的计算程序，及其基本思路. *第一步，先把数据合并. *从合并文件计算每一变量的方差. *计算每一个维度所有变量方差的平均值. *计算每一个维度的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’.

取自“http://www.obhrm.net/index.php?title=用SPSS计算Rwg的程序&oldid=2181”