/* module 11: problems distributed on handout */

filename athlete 'athlete.dat';
data one;
  infile athlete;
  input systol 1-3 diastol 6-7 sex $ 10 active 13;
run;

/* 1 */
proc freq data=one;
  tables active*sex;
* F and M for sex.  1 for athletic, 2 for not.
run;

/* 2 */
proc sort data=one;
  by active;
run;
proc means data=one;
  by active;
  var systol;
run;
* Mean systolic pressure for the athletes was 107.95.
* For the non-athletes, it was 121.65.

/* 3 */
* The answers from Problem 2 are all the data we have
* from which to infer population means for ahtletic
* and non-athletic systolic blood pressure.

/* 4 */
data one;
  infile athlete;
  input systol 1-3 diastol 6-7 sex $ 10 active 13;
run;
proc means clm alpha=0.10 data=one;
  by active;
  var diastol;
  output out=two lclm=lowLim uclm=upLim;
run;
proc print data=two;
  var lowLim upLim;
run;

/* 5 */
proc sort data=one;
  by sex;
run;
proc chart;
  by sex;
  vbar diastol;
run;

/* 6 */
proc sort data=one;
  by active;
run;
proc univariate plot;
  by active;
  var systol;
run;