|
Mid Term Program & Output
Program for Problem One: Part I, Step Five
00001 /* **********************************************
00002 Problem
One Mid Term Exam EDP 556
00003 Written
by Deborah L. Stirling
00004
00005 Note:
In Problem One, Part Five
00006
comment out PROC FORMAT (16-22),
00007
FORMAT (26), INPUT STATEMENT with
00008
TRIM (31&34), & PROC PRINT for
00009
Part Six and VAR (53-54).
00010
Run PROC MEANS; remove above
00011
comment markers, comment out
00012
Line 30, Lines 48-50, and Line 52,
00013
and run program to complete
00014
Part Six PROC PRINT.
00015 **********************************************
00016 PROC FORMAT;
00017 Value AGEFMT
0-<31 = 'Less than 31'
00018
31-40 = '31 to 40'
00019
41-50 = '41 to 50'
00020
51-60 = '51 to 60'
00020
51-60 = '51 to 60'
00021
61-HIGH = '61 and Older';
00022 run;
*/
00023 Data one;
00024 Infile 'chap1.txt';
00025 Input ID AGE CHLEV
HGT WGT;
00026 /* Format AGE AGEFMT.; */
00027 run;
00028 Data two;
00029 Infile 'chap2.txt';
00030 Input ID SYSBP DBP
CHLEV CD : $3.;
00031 /* Input ID SYSBP $ DBP $
CHLEV CD : $3.; */
00032 If CD=0 then
CD="NO";
00033 else if
CD =1 then CD="YES";
00034 /* BPRESS=trim(sysbp)||'/'||dbp;*/
00035 run;
00036 PROC SORT Data=one;
00037 by ID;
00038 run;
00039 PROC SORT Data=two;
00040 by ID;
00041 run;
00042 DATA prob1;
00043 UPDATE one two;
00044 by ID;
00045 run;
00046 Proc sort Data=prob1;
00047 by CD;
00048 Proc means;
00049 var AGE CHLEV WGT SYSBP
DBP;
00050 by CD;
00051 Proc print noobs;
00052 Title Problem One Step
Five Mid Term EDP 556';
00053 /* Title 'Problem One Step
Six Mid Term EDP 556';
00054 var ID AGE BPRESS
CD; */
00055 run;
Output of Means
Problem One Step Five Mid Term
EDP 556
------------------------------------
CD=NO ----------------------------------
Variable
N Mean
Std Dev Minimum
Maximum
--------------------------------------------------------------------------------
AGE
175 41.3885714 11.4202827
23.0000000 70.0000000
CHLEV
175 280.7371429 62.3302250 135.0000000
474.0000000
WGT
175 163.8514286 24.6662943 108.0000000
262.0000000
SYSBP
175 120.4228571 15.7269643
90.0000000 190.0000000
DBP
175 80.9428571 9.5626875
55.0000000 112.0000000
-----------------------------------------------------------------------------------
Problem One Step Five Mid Term
EDP 556
------------------------------------
CD=YES ----------------------------------
Variable
N Mean
Std Dev Minimum
Maximum
-----------------------------------------------------------------------------------
AGE
25 50.7600000
9.9844880 34.0000000 69.0000000
CHLEV
25 315.7200000 76.1197084 178.0000000
520.0000000
WGT
25 174.5600000 25.2950588 128.0000000
247.0000000
SYSBP
25 130.1200000 20.8333067 110.0000000
190.0000000
DBP
25 86.1200000 11.8649343
70.0000000 110.0000000
---------------------------------------------------------------------------------------------------------
Program for Problem One: Part I1, Step Six
00001 /* **********************************************
00002 Problem
One Mid Term Exam EDP 556
00003 Written
by Deborah L. Stirling
00004
00005 Note:
In Problem One, Part Five
00006
comment out PROC FORMAT (16-22),
00007
FORMAT (26), INPUT STATEMENT with
00008
TRIM (31&34), & PROC PRINT for
00009
Part Six and VAR (53-54).
00010
Run PROC MEANS; remove above
00011
comment markers, comment out
00012
Line 30, Lines 48-50, and Line 52,
00013
and run program to complete
00014
Part Six PROC PRINT.
00015 ***********************************************
*/
00016 PROC FORMAT;
00017 Value AGEFMT
0-<31 = 'Less than 31'
00018
31-40 = '31 to 40'
00019
41-50 = '41 to 50'
00020
51-60 = '51 to 60'
00020
51-60 = '51 to 60'
00021
61-HIGH = '61 and Older';
00022 run;
00023 Data one;
00024 Infile 'chap1.txt';
00025 Input ID AGE CHLEV
HGT WGT;
00026 Format AGE AGEFMT.;
00027 run;
00028 Data two;
00029 Infile 'chap2.txt';
00030 /* Input ID SYSBP DBP
CHLEV CD : $3.; */
00031 Input ID SYSBP $ DBP
$ CHLEV CD : $3.;
00032 If CD=0 then
CD="NO";
00033 else if
CD =1 then CD="YES";
00034 BPRESS=trim(sysbp)||'/'||dbp;
00035 run;
00036 PROC SORT Data=one;
00037 by ID;
00038 run;
00039 PROC SORT Data=two;
00040 by ID;
00041 run;
00042 DATA prob1;
00043 UPDATE one two;
00044 by ID;
00045 run;
00046 Proc sort Data=prob1;
00047 by CD;
00048 /* Proc means;
00049 var AGE CHLEV WGT SYSBP
DBP;
00050 by CD;
*/
00051 Proc print noobs;
00052 /* Title Problem One
Step Five Mid Term EDP 556';*/
00053 Title 'Problem One
Step Six Mid Term EDP 556';
00054 var ID AGE BPRESS
CD;
00055 run;
Output of First 10 by CD
Problem One Step Six Mid Term EDP 556
ID AGE
BPRESS CD
1 41 to 50
124/80 NO
2 31 to 40
110/70 NO
3 41 to 50
114/80 NO
4 31 to 40
100/80 NO
6 61 and Older 130/88
NO
7 41 to 50
130/94 NO
8 51 to 60
110/74 NO
9 51 to 60
120/80 NO
10 51 to 60 120/80
NO
5 61 and Older 190/110
YES
19 51 to 60
148/110 YES
21 31 to 40
110/70 YES
27 41 to 50
110/80 YES
29 31 to 40
110/74 YES
39 41 to 50
110/80 YES
41 31 to 40
130/90 YES
42 41 to 50
110/70 YES
44 51 to 60
141/100 YES
48 61 and Older 140/90
YES
Program for Problem Two
00001 /* **********************************************
00002 **
Program for Mid Term Problem Two
**
00003 **
Written by Deborah L. Stirling
**
00004 **********************************************
00005 **
Approach: Start by looking at data files
**
00006 **
using pico editor.
**
00007 **
Next combine files.
**
00008 **********************************************
*/
00009 Data three;
00010 Infile 'exer1.txt' dlm=',';
00011 Input ID SEX SMOKE AGE Pulse_1
Pulse_2 Name : $20.;
00012 Proc Sort Data=three;
00013 by ID;
00014 run;
00015 Data four;
00016 Infile 'exer2.txt' dlm=',';
00017 Input ID SEX SMOKE AGE Pulse_1
Pulse_2 Name :$20.;
00018 Proc Sort data=four;
00019 by ID;
00020 run;
00021 Data all;
00022 /* Select only names starting
00023 with an
"A"
*/
00024 Merge three four;
00025 by ID;
00026 where name like
'A_%';
00027 run;
00028 Data all; set all;
00029 /* Create new variable dif
00030 between
pulse variables */
00031 puldif=(pulse_1-pulse_2);
00032 /* Sort by sex and name
*/
00033 Proc Sort Data=all;
00034 by sex name;
00035 /* Calculate pulse dif means
*/
00036 Proc Means;
00037 var puldif;
00038 /* Format sex and smoke with
00039 new
text labels
*/
00040 Proc Print noobs Data=all
Label;
00041 Title 'Mid Term Problem Two';
00042 Label Sex='Male/Female'
00043
Smoke='Smoker/Non-Smoker';
00044 run;
Output for Problem Two
Analysis Variable : PULDIF
N Mean
Std Dev Minimum
Maximum
----------------------------------------------------------------
5 -63.6000000 8.0498447 -72.0000000
-52.0000000
----------------------------------------------------------------
Mid Term Problem Two
ID Male/Female Smoker/Non-Smoker AGE PULSE_1
PULSE_2 NAME PULDIF
1 1
1
31 62
126 ALLAN
-64
21 1
1
38 70
122 ARTHUR
-52
18 2
0
21 86
146 ALISON
-60
23 2
1
33 76
148 AMY
-72
24 2
0
25 78
148 ANNIE
-70
|
