***************************************************************** * PROGRAM : WYT5SC1.SAS * * * * PROGRAMMER : BOBBY LAIRD * * * * DATE : APRIL 22, 1997 * * * * PURPOSE : PROGRAM SCORES THE WHAT DO YOU THINK STORIES * * (SETS A,B,C AND D,E,F) * * * * NOTES : FUTURE USE OF THIS PROGRAM REQUIRES * * SPECIFYING THE YEAR, COHORT AND DIRECOTORIES.* * * * BE SURE TO INCLUDE BOTH THE CxKx and CxLx * * ELEMTARY DATASETS. * * * * INPUTS : C5K1 AND C5K1 ELEMENTARY DATASETS * * * * OUTPUTS : WYT5SC1.SD2 * *****************************************************************; %let yr = 5; * fill in the study year here; %let c = 1; * fill in the cohort here; libname what 'f:\sasdata\what'; * fill in the directory for the elementary data sets; libname out 'f:\sasdata\what'; * fill in the output directory for the scored data sets; libname alls 'f:\sasdata\what'; * fill in the location of the allkey files; *********************************************************************************************** ********* DO NOT MODIFY BELOW THIS LINE ******************************************************* **********************************************************************************************; data duke; merge what.dc&yr.k&c. what.dc&yr.l&c.; by tcid; data nash; merge what.nc&yr.k&c. what.nc&yr.l&c.; by tcid; data penn; merge what.pc&yr.k&c. what.pc&yr.l&c.; by tcid; data wash; merge what.sc&yr.k&c. what.sc&yr.l&c.; by tcid; data allkids ; set duke nash penn wash; /* resoring the free response items - aggressive or punish */; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 2)) then resp1 = 1; if ((c&yr.ka4 = 1) or (c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1 = 0; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 2)) then resp2 = 1; if ((c&yr.kb4 = 1) or (c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2 = 0; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 2)) then resp3 = 1; if ((c&yr.kc4 = 1) or (c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3 = 0; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 2))then resp4 = 1; if ((c&yr.ld4 = 1) or (c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4 = 0; if ((c&yr.le4 = 0) or (c&yr.le4 = 2))then resp5 = 1; if ((c&yr.le4 = 1) or (c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5 = 0; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 2))then resp6 = 1; if ((c&yr.lf4 = 1) or (c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6 = 0; /* resoring the free response items - aggressive */; if (c&yr.ka4 = 0)then resp1a = 1; if ((c&yr.ka4 = 1) or (c&yr.ka4 = 2) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1a = 0; if (c&yr.kb4 = 0)then resp2a = 1; if ((c&yr.kb4 = 1) or (c&yr.kb4 = 2) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2a = 0; if (c&yr.kc4 = 0)then resp3a = 1; if ((c&yr.kc4 = 1) or (c&yr.kc4 = 2) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3a = 0; if (c&yr.ld4 = 0)then resp4a = 1; if ((c&yr.ld4 = 1) or (c&yr.ld4 = 2) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4a = 0; if (c&yr.le4 = 0)then resp5a = 1; if ((c&yr.le4 = 1) or (c&yr.le4 = 2) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5a = 0; if (c&yr.lf4 = 0)then resp6a = 1; if ((c&yr.lf4 = 1) or (c&yr.lf4 = 2) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6a = 0; /* resoring the free response items - assertive/competent */; if (c&yr.ka4 = 1)then resp1b = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 2) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1b = 0; if (c&yr.kb4 = 1)then resp2b = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 2) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2b = 0; if (c&yr.kc4 = 1)then resp3b = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 2) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3b = 0; if (c&yr.ld4 = 1)then resp4b = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 2) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4b = 0; if (c&yr.le4 = 1)then resp5b = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 2) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5b = 0; if (c&yr.lf4 = 1)then resp6b = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 2) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6b = 0; /* resoring the free response items - authority punish */; if (c&yr.ka4 = 2)then resp1c = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1c = 0; if (c&yr.kb4 = 2)then resp2c = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2c = 0; if (c&yr.kc4 = 2)then resp3c = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3c = 0; if (c&yr.ld4 = 2)then resp4c = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4c = 0; if (c&yr.le4 = 2)then resp5c = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5c = 0; if (c&yr.lf4 = 2)then resp6c = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6c = 0; /* resoring the free response items - authority intervene */; if (c&yr.ka4 = 3)then resp1d = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 2) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1d = 0; if (c&yr.kb4 = 3)then resp2d = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 2) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2d = 0; if (c&yr.kc4 = 3)then resp3d = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 2) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3d = 0; if (c&yr.ld4 = 3)then resp4d = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 2) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4d = 0; if (c&yr.le4 = 3)then resp5d = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 2) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5d = 0; if (c&yr.lf4 = 3)then resp6d = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 2) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6d = 0; /* resoring the free response items - passive/avoidant */; if (c&yr.ka4 = 4)then resp1e = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 3) or (c&yr.ka4 = 2) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1e = 0; if (c&yr.kb4 = 4)then resp2e = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 3) or (c&yr.kb4 = 2) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2e = 0; if (c&yr.kc4 = 4)then resp3e = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 3) or (c&yr.kc4 = 2) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3e = 0; if (c&yr.ld4 = 4)then resp4e = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 3) or (c&yr.ld4 = 2) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4e = 0; if (c&yr.le4 = 4)then resp5e = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 3) or (c&yr.le4 = 2) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5e = 0; if (c&yr.lf4 = 4)then resp6e = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 3) or (c&yr.lf4 = 2) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6e = 0; /* resoring the free response items - self control */; if (c&yr.ka4 = 5)then resp1f = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=2) or (c&yr.ka4 = 6) or (c&yr.ka4 = 7))then resp1f = 0; if (c&yr.kb4 = 5)then resp2f = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=2) or (c&yr.kb4 = 6) or (c&yr.kb4 = 7))then resp2f = 0; if (c&yr.kc4 = 5)then resp3f = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=2) or (c&yr.kc4 = 6) or (c&yr.kc4 = 7))then resp3f = 0; if (c&yr.ld4 = 5)then resp4f = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=2) or (c&yr.ld4 = 6) or (c&yr.ld4 = 7))then resp4f = 0; if (c&yr.le4 = 5)then resp5f = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=2) or (c&yr.le4 = 6) or (c&yr.le4 = 7))then resp5f = 0; if (c&yr.lf4 = 5)then resp6f = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=2) or (c&yr.lf4 = 6) or (c&yr.lf4 = 7))then resp6f = 0; /* resoring the free response items - other */; if (c&yr.ka4 = 6)then resp1g = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 2) or (c&yr.ka4 = 7))then resp1g = 0; if (c&yr.kb4 = 6)then resp2g = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 2) or (c&yr.kb4 = 7))then resp2g = 0; if (c&yr.kc4 = 6)then resp3g = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 2) or (c&yr.kc4 = 7))then resp3g = 0; if (c&yr.ld4 = 6)then resp4g = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 2) or (c&yr.ld4 = 7))then resp4g = 0; if (c&yr.le4 = 6)then resp5g = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 2) or (c&yr.le4 = 7))then resp5g = 0; if (c&yr.lf4 = 6)then resp6g = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 2) or (c&yr.lf4 = 7))then resp6g = 0; /* resoring the free response items - irrelevant, unable to respond */; if (c&yr.ka4 = 7)then resp1h = 1; if ((c&yr.ka4 = 0) or (c&yr.ka4 = 1) or(c&yr.ka4 = 3) or (c&yr.ka4 = 4) or (c&yr.ka4=5) or (c&yr.ka4 = 6) or (c&yr.ka4 = 2))then resp1h = 0; if (c&yr.kb4 = 7)then resp2h = 1; if ((c&yr.kb4 = 0) or (c&yr.kb4 = 1) or(c&yr.kb4 = 3) or (c&yr.kb4 = 4) or (c&yr.kb4=5) or (c&yr.kb4 = 6) or (c&yr.kb4 = 2))then resp2h = 0; if (c&yr.kc4 = 7)then resp3h = 1; if ((c&yr.kc4 = 0) or (c&yr.kc4 = 1) or(c&yr.kc4 = 3) or (c&yr.kc4 = 4) or (c&yr.kc4=5) or (c&yr.kc4 = 6) or (c&yr.kc4 = 2))then resp3h = 0; if (c&yr.ld4 = 7)then resp4h = 1; if ((c&yr.ld4 = 0) or (c&yr.ld4 = 1) or(c&yr.ld4 = 3) or (c&yr.ld4 = 4) or (c&yr.ld4=5) or (c&yr.ld4 = 6) or (c&yr.ld4 = 2))then resp4h = 0; if (c&yr.le4 = 7)then resp5h = 1; if ((c&yr.le4 = 0) or (c&yr.le4 = 1) or(c&yr.le4 = 3) or (c&yr.le4 = 4) or (c&yr.le4=5) or (c&yr.le4 = 6) or (c&yr.le4 = 2))then resp5h = 0; if (c&yr.lf4 = 7)then resp6h = 1; if ((c&yr.lf4 = 0) or (c&yr.lf4 = 1) or(c&yr.lf4 = 3) or (c&yr.lf4 = 4) or (c&yr.lf4=5) or (c&yr.lf4 = 6) or (c&yr.lf4 = 2))then resp6h = 0; * defining denominator variables ; denom1 = 0; denom2 = 0; denom3 = 0; denom4 = 0; denom5 = 0; denom6 = 0; denom7 = 0; denom8 = 0; denom9 = 0; denom10 = 0; denom11 = 0; denom12 = 0; denom13 = 0; denom14 = 0; denoma = 0; denomb = 0; denomc = 0; denomd = 0; denome = 0; denomf = 0; denomg = 0; denomh = 0; /* setting up arrays across the six stories */; array resp(6) resp1 resp2 resp3 resp4 resp5 resp6; array respa(6) resp1a resp2a resp3a resp4a resp5a resp6a; array respb(6) resp1b resp2b resp3b resp4b resp5b resp6b; array respc(6) resp1c resp2c resp3c resp4c resp5c resp6c; array respd(6) resp1d resp2d resp3d resp4d resp5d resp6d; array respe(6) resp1e resp2e resp3e resp4e resp5e resp6e; array respf(6) resp1f resp2f resp3f resp4f resp5f resp6f; array respg(6) resp1g resp2g resp3g resp4g resp5g resp6g; array resph(6) resp1h resp2h resp3h resp4h resp5h resp6h; array benat(6) c&yr.ka1b c&yr.kb1a c&yr.kc1a c&yr.ld1a c&yr.le1b c&yr.lf1a; array hosat(6) c&yr.ka1a c&yr.kb1b c&yr.kc1b c&yr.ld1b c&yr.le1a c&yr.lf1b; array angry(6) c&yr.ka2a c&yr.kb2a c&yr.kc2b c&yr.ld2b c&yr.le2a c&yr.lf2a; array sad(6) c&yr.ka2b c&yr.kb2b c&yr.kc2a c&yr.ld2a c&yr.le2b c&yr.lf2b; array retrb(6) c&yr.ka3a c&yr.kb3c c&yr.kc3b c&yr.ld3a c&yr.le3b c&yr.lf3c; array resol(6) c&yr.ka3b c&yr.kb3a c&yr.kc3c c&yr.ld3c c&yr.le3c c&yr.lf3a; array avoid(6) c&yr.ka3c c&yr.kb3b c&yr.kc3a c&yr.ld3b c&yr.le3a c&yr.lf3b; array benact(6) c&yr.ka5a1 c&yr.kb5b1 c&yr.lc5a1 c&yr.ld5a1 c&yr.le5b1 c&yr.lf5a1; array beneff(6) c&yr.ka5a2 c&yr.kb5b2 c&yr.lc5a2 c&yr.ld5a2 c&yr.le5b2 c&yr.lf5a2; array benprs(6) c&yr.ka5a3 c&yr.kb5b3 c&yr.lc5a3 c&yr.ld5a3 c&yr.le5b3 c&yr.lf5a3; array hosact(6) c&yr.ka5b1 c&yr.kb5a1 c&yr.lc5b1 c&yr.ld5b1 c&yr.le5a1 c&yr.lf5b1; array hoseff(6) c&yr.ka5b2 c&yr.kb5a2 c&yr.lc5b2 c&yr.ld5b2 c&yr.le5a2 c&yr.lf5b2; array hosprs(6) c&yr.ka5b3 c&yr.kb5a3 c&yr.lc5b3 c&yr.ld5b3 c&yr.le5a3 c&yr.lf5b3; /* computing the denominator variables - counts answers only */; do i = 1 to 6; if resp(i) >= 0 < 7 then denom1 +1; end; drop i; do i = 1 to 6; if respa(i) >= 0 < 7 then denoma +1; end; drop i; do i = 1 to 6; if respb(i) >= 0 < 7 then denomb +1; end; drop i; do i = 1 to 6; if respc(i) >= 0 < 7 then denomc +1; end; drop i; do i = 1 to 6; if respd(i) >= 0 < 7 then denomd +1; end; drop i; do i = 1 to 6; if respe(i) >= 0 < 7 then denome +1; end; drop i; do i = 1 to 6; if respf(i) >= 0 < 7 then denomf +1; end; drop i; do i = 1 to 6; if respg(i) >= 0 < 7 then denomg +1; end; drop i; do i = 1 to 6; if resph(i) >= 0 < 7 then denomh +1; end; drop i; do i = 1 to 6; if benat(i) >= 0 then denom2 +1; end; drop i; do i = 1 to 6; if hosat(i) >= 0 then denom3 +1; end; drop i; do i = 1 to 6; if angry(i) >= 0 then denom4 +1; end; drop i; do i = 1 to 6; if sad(i) >= 0 then denom5 +1; end; drop i; do i = 1 to 6; if retrb(i) >= 0 then denom6 +1; end; drop i; do i = 1 to 6; if resol(i) >= 0 then denom7 +1; end; drop i; do i = 1 to 6; if avoid(i) >= 0 then denom8 +1; end; drop i; do i = 1 to 6; if benact(i) >= 0 then denom9 +1; end; drop i; do i = 1 to 6; if beneff(i) >= 0 then denom10 +1; end; drop i; do i = 1 to 6; if benprs(i) >= 0 then denom11 +1; end; drop i; do i = 1 to 6; if hosact(i) >= 0 then denom12 +1; end; drop i; do i = 1 to 6; if hoseff(i) >= 0 then denom13 +1; end; drop i; do i = 1 to 6; if hosprs(i) >= 0 then denom14 +1; end; drop i; /* computing numerators by summing responses across the six stories */; rpu = sum(resp1, resp2, resp3, resp4, resp5, resp6); bat = sum(c&yr.ka1b, c&yr.kb1a, c&yr.kc1a, c&yr.ld1a, c&yr.le1b, c&yr.lf1a); hat = sum(c&yr.ka1a, c&yr.kb1b, c&yr.kc1b, c&yr.ld1b, c&yr.le1a, c&yr.lf1b); agy = sum(c&yr.ka2a, c&yr.kb2a, c&yr.kc2b, c&yr.ld2b, c&yr.le2a, c&yr.lf2a); sax = sum(c&yr.ka2b, c&yr.kb2b, c&yr.kc2a, c&yr.ld2a, c&yr.le2b, c&yr.lf2b); ret = sum(c&yr.ka3a, c&yr.kb3c, c&yr.kc3b, c&yr.ld3a, c&yr.le3b, c&yr.lf3c); res = sum(c&yr.ka3b, c&yr.kb3a, c&yr.kc3c, c&yr.ld3c, c&yr.le3c, c&yr.lf3a); avd = sum(c&yr.ka3c, c&yr.kb3b, c&yr.kc3a, c&yr.ld3b, c&yr.le3a, c&yr.lf3b); bct = sum(c&yr.ka5a1, c&yr.kb5b1, c&yr.lc5a1, c&yr.ld5a1, c&yr.le5b1, c&yr.lf5a1); bef = sum(c&yr.ka5a2, c&yr.kb5b2, c&yr.lc5a2, c&yr.ld5a2, c&yr.le5b2, c&yr.lf5a2); bps = sum(c&yr.ka5a3, c&yr.kb5b3, c&yr.lc5a3, c&yr.ld5a3, c&yr.le5b3, c&yr.lf5a3); hct = sum(c&yr.ka5b1, c&yr.kb5a1, c&yr.lc5b1, c&yr.ld5b1, c&yr.le5a1, c&yr.lf5b1); hef = sum(c&yr.ka5b2, c&yr.kb5a2, c&yr.lc5b2, c&yr.ld5b2, c&yr.le5a2, c&yr.lf5b2); hps = sum(c&yr.ka5b3, c&yr.kb5a3, c&yr.lc5b3, c&yr.ld5b3, c&yr.le5a3, c&yr.lf5b3); ag = sum(resp1a, resp2a, resp3a, resp4a, resp5a, resp6a); ac = sum(resp1b, resp2b, resp3b, resp4b, resp5b, resp6b); ap = sum(resp1c, resp2c, resp3c, resp4c, resp5c, resp6c); ai = sum(resp1d, resp2d, resp3d, resp4d, resp5d, resp6d); pa = sum(resp1e, resp2e, resp3e, resp4e, resp5e, resp6e); sc = sum(resp1f, resp2f, resp3f, resp4f, resp5f, resp6f); ot = sum(resp1g, resp2g, resp3g, resp4g, resp5g, resp6g); ir = sum(resp1h, resp2h, resp3h, resp4h, resp5h, resp6h); /* computing the mean scores */; wyt&yr.rpu = rpu/denom1; wyt&yr.bat = 6 - (bat/denom2); wyt&yr.hat = 6 - (hat/denom3); wyt&yr.agy = 6 - (agy/denom4); wyt&yr.sad = 6 - (sax/denom5); wyt&yr.ret = 6 - (ret/denom6); wyt&yr.res = 6 - (res/denom7); wyt&yr.avd = 6 - (avd/denom8); wyt&yr.bct = 6 - (bct/denom9); wyt&yr.bef = 6 - (bef/denom10); wyt&yr.bps = 6 - (bps/denom11); wyt&yr.hct = 6 - (hct/denom12); wyt&yr.hef = 6 - (hef/denom13); wyt&yr.hps = 6 - (hps/denom14); wyt&yr.pag = ag/denoma; wyt&yr.pac = ac/denomb; wyt&yr.pap = ap/denomc; wyt&yr.pai = ai/denomd; wyt&yr.ppa = pa/denome; wyt&yr.psc = sc/denomf; wyt&yr.pot = ot/denomg; wyt&yr.pir = ir/denomh; /* recoding to missing if missing more than half of the items in a scale */; if (denom1 < 4) then wyt&yr.rpu = .; if (denom2 < 4) then wyt&yr.bat = .; if (denom3 < 4) then wyt&yr.hat = .; if (denom4 < 4) then wyt&yr.agy = .; if (denom5 < 4) then wyt&yr.sad = .; if (denom6 < 4) then wyt&yr.ret = .; if (denom7 < 4) then wyt&yr.res = .; if (denom8 < 4) then wyt&yr.avd = .; if (denom9 < 4) then wyt&yr.bct = .; if (denom10 < 4) then wyt&yr.bef = .; if (denom11 < 4) then wyt&yr.bps = .; if (denom12 < 4) then wyt&yr.hct = .; if (denom13 < 4) then wyt&yr.hef = .; if (denom14 < 4) then wyt&yr.hps = .; if (denoma < 4) then wyt&yr.pag = .; if (denomb < 4) then wyt&yr.pac = .; if (denomc < 4) then wyt&yr.pap = .; if (denomd < 4) then wyt&yr.pai = .; if (denome < 4) then wyt&yr.ppa = .; if (denomf < 4) then wyt&yr.psc = .; if (denomg < 4) then wyt&yr.pot = .; if (denomh < 4) then wyt&yr.pir = .; /* computing second order variables */; wyt&yr.ena = wyt&yr.hct-wyt&yr.bct; *hostile enact - benign enact; wyt&yr.eff = wyt&yr.hef-wyt&yr.bef; *hostile effectiveness - benign effectiveness; wyt&yr.eop = wyt&yr.hps-wyt&yr.bps; *hostile effect on peers - benign effect on peers; wyt&yr.att = wyt&yr.hat-wyt&yr.bat; *hostile attributions - benign attributions; label wyt&yr.rpu = "Y&yr. aggressive/punishment responses" wyt&yr.hat = "Y&yr. hostile attributions" wyt&yr.bat = "Y&yr. benign attributions" wyt&yr.agy = "Y&yr. feel angry" wyt&yr.sad = "Y&yr. feel sad" wyt&yr.ret = "Y&yr. retribution goals" wyt&yr.res = "Y&yr. problem resolution goals" wyt&yr.avd = "Y&yr. problem avoidance goals" wyt&yr.bct = "Y&yr. enact benign responses" wyt&yr.bef = "Y&yr. effectiveness benging responses" wyt&yr.bps = "Y&yr. effect on peers benign responses" wyt&yr.hct = "Y&yr. enact hostile responses" wyt&yr.hef = "Y&yr. effectiveness hostile responses" wyt&yr.hps = "Y&yr. effect on peers hostile responses" wyt&yr.pag = "Y&yr. aggressive responses" wyt&yr.pac = "Y&yr. assertive/competent responses" wyt&yr.pap = "Y&yr. authority-punish responses" wyt&yr.pai = "Y&yr. authority-intervene responses" wyt&yr.ppa = "Y&yr. passive/avoidant responses" wyt&yr.psc = "Y&yr. self-control responses" wyt&yr.pot = "Y&yr. other responses" wyt&yr.pir = "Y&yr. irrelevant/unable responses" wyt&yr.ena = "Y&yr. hostile enact-benign enact" wyt&yr.eff = "Y&yr. hostile effect-benign effect" wyt&yr.eop = "Y&yr. hostile eff peers-benign eff peers" wyt&yr.att = "Y&yr. hostile attrib-benign attrib"; proc sort; by site tcid; data out.wyt&yr.sc&c. (label = "what you think stories Y&yr.C&c."); merge allkids alls.allkey&c.; by site tcid; if ((NORM = 'N') or (treatmnt = 'I') or (treatmnt = 'C')); keep tcid site cohort wyt&yr.rpu wyt&yr.bat wyt&yr.hat wyt&yr.agy wyt&yr.sad wyt&yr.ret wyt&yr.res wyt&yr.avd wyt&yr.bct wyt&yr.bef wyt&yr.bps wyt&yr.hct wyt&yr.hef wyt&yr.hps wyt&yr.pag wyt&yr.pac wyt&yr.pap wyt&yr.pai wyt&yr.ppa wyt&yr.psc wyt&yr.pot wyt&yr.pir wyt&yr.ena wyt&yr.eff wyt&yr.eop wyt&yr.att; proc contents; run;