第三章 实验研究设计
Value: 键入A OldNew: 点击Add Old Value
Range: 键入9 through 16 New Value
Value: 键入B OldNew: 点击Add Old Value
Range: 键入17 through 24 New Value
Value: 键入C OldNew: 点击Add Old Value
Range: 键入25 through 32 New Value
Value: 键入D OldNew: 点击Add Continue OK Rrandom值为1~8时，treat值为A
Rrandom值为9~16时，treat值为B
Rrandom值为17~24时，treat值为C
Rrandom值为25~32时，treat值为D
注：当样本量较大时，最好编程实现，以免除数据录入的不便。以下为SPSS的Syntax窗口中用编程来完成本题。
File→New→Syntax，打开Syntax窗口，键入如下程序：
input program.
numeric n k number group (F8.0)/random(F8.6). string treat(A1). compute n=32. compute k=4. loop number=1 to n. end case.
compute n=lag(n). compute k=lag(k). end loop. end file. end input program. compute random=uniform(1).
开始数据录入程序段
受试对象总数为32 4个处理组
结束数据录入程序段
产生范围在0~1之间的伪随机数
3-11
第三章 实验研究设计
set seed 20071222. rank variables=random .
compute group = trunc((rrandom-1)*k/n ). formats group(F3.0). compute
treat=substr(\group+1,1). list number treat.
设定随机种子为20071222 对伪随机数排序
根据伪随机数的序号进行分组
结果中显示受试对象编号及被分到的处理组
注：程序中的n(受试对象总数)、k(即处理组数)可根据实际情况赋予不同的值。
输出结果
Data View窗口(由于篇幅限制，仅列出前16例受试对象的分组情况)
图3-5 SPSS编程实现受试对象随机分配结果
Output窗口
List number
1 2
treat
D D
number
17 18
Treat
C C
3-12
第三章 实验研究设计
3 4 5 6 7 8 9 10 11 12 13 14 15 16
B C D D B C D A D B C B A A
19 20 21 22 23 24 25 26 27 28 29 30 31 32
B C B A C D C A B A A A B D
编程实现随机分配的结果见data view 窗口(图3-5)或output 窗口。可以看出32只大鼠被随机分配到A、B、C、D组。在用此程序进行随机分组前，事先规定A、B、C、D分别对应于对照组、MEL组、TXL组和MEL+TXL组。从分配结果中可以看出：10，15，16，22，26，28，29，30号大鼠被分到对照组；3，7，12，14，19，21，27，31号大鼠被分到MEL组；4，8，13，17，18，20，23，25号大鼠被分到TXL组；1，2，5，6，9，11，24，32号大鼠被分到MEL+TXL组。
3-13