GMACRO NEGD2 Random 500 C1; Normal 50 5. Random 500 C2; Normal 0 5. Random 500 C3; Normal 0 5. Add C1 C2 C4. Add C1 C3 C5. Name C1 ='true' C2 ='x error' C3 ='y error' C4 ='pretest' C5 ='posttest' Set C6 1:500 End Code (1:250) 0 C6 C6 Code (251:500) 1 C6 C6 Name C6 = 'Group' Let C4 = C4 + (5 * C6) Let C5 = C5 + (15 * C6) Table C6; means C4 C5. Histogram C4 Histogram C5 Plot C5 * C4 Plot C5 * C4; Symbol C6. Copy C6 C4 C5 C20-C22; use C6 = 0. Copy C6 C4 C5 C30-C32; use C6 = 1. Name C21 = 'contpre' C22 = 'contpost' C31='progpre' C32 = 'progpost' Correlation C21 C22 M1 Correlation C31 C32 M2 copy M1 C41 C42 copy C41 K1; use 2. copy M2 C43 C44 copy C43 K2; use 2. Let C23 = aver (C21) + (K1 * (C21 - aver(C21))) Let C33 = aver (C31) + (K2 * (C31 - aver(C31))) Name C23='contadj' C33='progadj' Describe C21 C22 C23 C31 C32 C33 Stack (C23) (C33) (C7). Name C7 = 'adjpre' Table C6; means C4 C7 C5; stdev C4 C7 C5. Regress C5 2 C4 C6 Regress C5 2 C7 C6 ENDMACRO