libname mtsu '/courses/ddb976e5ba27fe300/PSY6560/'; run; /* Creates a temporary data set called cleansurvey2011. */ /* The cleansurvey2011 data set should be based on the survey2011 data set, */ /* but should have the following additional characteristics. */ data cleansurvey2011; set mtsu.survey2011; /* The possible values for the demographic questions are 0 and 1. */ /* Any other value should be recoded as missing data. Note. */ /* Consider using the notin( ) function. */ array dem [8]; do i = 1 to 8; if dem[i] = . then dem[i] = (missing data); /* The possible values for the anxiety questions are 1, 2, and 3. */ /* Any other value should be recoded as missing data. */ array anx [50]; do i = 8 to 50; if anx[i] = . then anx[i] = (missing data); /* The possible values for the depression questions are 1, 2, 3, 4, 5, 6, and 7. */ /* Any other value should be recoded as missing data. */ array dep [18]; do i = 50 to 68; if dep[i]= . then dep[i] = (missing data); /* Reverse score the following depression questions: 3, 4, 8, 9, 10, and 11. A quick way to reverse code a variable is: */ /* reversed = scalemax+1 – original */ depreversed = dep18+1 - dep1; end; end; end; /* Create an average anxiety score for each person. */ avg = anx; /* Create an average depression score for each person. */ avg = dep; /* Assigns permanent labels and formats to each demographic variable. */ if Dem1 = 0 then Feedback = 'Male'; else if Dem1 = 1 then Feedback = 'Female'; if Dem2 = 0 then Feedback = 'No'; else if Dem2 = 1 then Feedback = 'Yes'; if Dem3 = 0 then Feedback = 'No'; else if Dem3 = 1 then Feedback = 'Yes'; if Dem4 = 0 then Feedback = 'No'; else if Dem4 = 1 then Feedback = 'Yes'; if Dem5 = 0 then Feedback = 'No'; else if Dem5 = 1 then Feedback = 'Yes'; if Dem6 = 0 then Feedback = 'No'; else if Dem6 = 1 then Feedback = 'Yes'; if Dem7 = 0 then Feedback = 'No'; else if Dem7 = 1 then Feedback = 'Yes'; if Dem8 = 0 then Feedback = 'No'; else if Dem8 = 1 then Feedback = 'Yes'; /* Print descriptive statistics for average anxiety and average depression scores. */ /* */ /* Print frequencies for the demographic variables. */ /* */ proc contents data = mtsu.survey2011; run; proc freq data = mtsu.survey2011; tables dem; run; proc print data = cleansurvey2011; var anx dep; run;
... View more