data sale;

input name $ sales region $ type $;

cards;

stafer
9664
east
sm young

22969 east

sm stride
27253 east

sm topin

86432 east

c speak

99210 east

c vetter
38928 west

c curci

21531 west

sm marco

79345 west

c Greco

18523 west

sm ryan
32915 west
sm tomas

42109 west

sm thaiman 94320 south c moore

25718 south sm allen

64700 south c stelam
27634 south sm

farlow
32719 north sm smith
38712 north sm Wilson
97214 north c run;

proc print;

run;

proc freq;

tables type*region;

run;

proc sort; by type; run;

proc means;

title 'means of two kinds of sales data';

by type;

run;