data test;
input subject sex $ exam1 exam2 hwgrade $;
cards;
10 m 80 84 A
7 m 85 89 A
4 F 90 86 B
20 m 82 85 B
25 F 94 94 A
14 F 88 84 C
proc means;
run;
data test;
input subject sex $ exam1 exam2 hwgrade $;
final=(exam1+exam2)/2;
cards;
10 m 80 84 A
7 m 85 89 A
4 F 90 86 B
20 m 82 85 B
25 F 94 94 A
14 F 88 84 C
run;
proc sort;
by subject;
run;
proc print;
title 'Roster in student number order';
id subject;
var exam1 exam2 final hwgrade;
run;
proc means n mean std maxdec=1;
title 'Descriptive ststistics';
var exam1 exam2 final;
run;
proc freq;
tables sex hwgrade;
run;
libname econdata 'e:consume';
data econdata.consume;
input c y;
cards;
1985 437 .
1986 451 1323.4
1987 513 1464.8
1988 643 1726.3
1989 700 1977.2
1990 803 2196.5
1991 896 2409.2
1992 1070 2810.6
1993 1331 3499
1994 1781 4717.2
1995 2311 5860.7
1996 2677 6765
1997 2936 7250.4
1998 2973 7587.1
1999 3413 8064.3
run;
proc means n mean maxdec=0;
var y;
run;
