** Enter year of data collection below -- data only for year 9 **; %let yr = 9 ; libname sasin "N:\Datasets\Child\adolescentstories\U"; libname sasout "N:\Datasets\Child\adolescentstories\S"; *************** DO NOT MODIFY BELOW THIS LINE ******************************; %macro linmean; data &INDATA; set &INDATA; label &var_name = "&var_labl"; array sumvars {*} &var_list; if n(of sumvars(*))>=.5*dim(sumvars) then &var_name=mean(of sumvars(*)); proc sort; by site tcid; run; %mend linmean; %macro linsum; data &INDATA; set &INDATA; label &var_name = "&var_labl"; array sumvars {*} &var_list; if n(of sumvars(*))>=.5*dim(sumvars) then &var_name=mean(of sumvars(*))*dim(sumvars); proc sort; by site tcid; run; %mend linsum; *****************************************************************************; /* Merging unscored datasets with demographic data*/ DATA sasout.AST&yr.; SET sasin.c&yr.ap ; ** create percentage of goal of been liked or respected responses**; AST&yr.APL=0; AST&yr.APR=0; array R[6] c&yr.ap5 c&yr.ap11 c&yr.ap17 c&yr.ap23 c&yr.ap29 c&yr.ap35; do i=1 to 6; if R[i]=1 then AST&yr.apl=AST&yr.apl+1; if R[i]=2 then AST&yr.apr=AST&yr.apr+1; end; drop i; ast&yr.apl=AST&yr.apl*100/6; ast&yr.apr=AST&yr.apr*100/6; ** create percentage of competent and percentage of aggressive responses ; AST&yr.APA=0; AST&yr.APC=0; array S[6] c&yr.ap6 c&yr.ap12 c&yr.ap18 c&yr.ap24 c&yr.ap30 c&yr.ap36; do i=1 to 6; if S[i]=2 then AST&yr.apa=AST&yr.apa+1; if s[i]=1 then AST&yr.apc=AST&yr.apc+1; end; drop i; ast&yr.apa=AST&yr.apa*100/6; ast&yr.apc=AST&yr.apc*100/6; label ast&yr.apa="Percentage of aggressive response AST&yr." ast&yr.apc="Percentage of competent responses AST&yr." ast&yr.apl="Percentage wanting to be liked AST&yr." ast&yr.apr="Percentage wanting to be respected AST&yr."; run; *****************************************************************************; /* Specify definitions for SCALE VARIABLES below: ** */ %let INDATA = sasout.AST&yr.; ************************************************************; %let var_name = AST&yr.HAT; %let var_labl = %str(Hostile Attributions - AST&yr.) ; %let var_list = %str(c&yr.ap1 c&yr.ap7 c&yr.ap13 c&yr.ap19 c&yr.ap25 c&yr.ap31); %linmean; ************************************************************; %let var_name = AST&yr.BAT; %let var_labl = %str(Benign Attributions - AST&yr.) ; %let var_list = %str(c&yr.ap2 c&yr.ap8 c&yr.ap14 c&yr.ap20 c&yr.ap26 c&yr.ap32); %linmean; ************************************************************; %let var_name = AST&yr.ANG; %let var_labl = %str(Angry Feelings - AST&yr.) ; %let var_list = %str(c&yr.ap3 c&yr.ap9 c&yr.ap15 c&yr.ap21 c&yr.ap27 c&yr.ap33); %linmean; ************************************************************; %let var_name = AST&yr.WOR; %let var_labl = %str(Worried Feelings - AST&yr.) ; %let var_list = %str(c&yr.ap4 c&yr.ap10 c&yr.ap16 c&yr.ap22 c&yr.ap28 c&yr.ap34); %linmean; ************************************************************; %let var_name = AST&yr.ROL; %let var_labl = %str(Respected/liked - AST&yr.) ; %let var_list = %str(c&yr.ap3 c&yr.ap9 c&yr.ap15 c&yr.ap21 c&yr.ap27 c&yr.ap33); %linmean; ************************************************************; %let var_name = AST&yr.COA; %let var_labl = %str(Aggressive/competent response - AST&yr.) ; %let var_list = %str(c&yr.ap4 c&yr.ap10 c&yr.ap16 c&yr.ap22 c&yr.ap28 c&yr.ap34); %linmean;