options ls=70 ps=40;

data dbp;
 
 input gender $ dbp;


 datalines;

 m 87
 m 89
 m 92
 m 78
 m 80
 m 75
 m 100
 m 91
 f 80
 f 70
 f 68
 f 72
 f 59
 f 63
 f 68
 f 80
 f 74
 f 70
 f 78
 f 80
;
run;

title "Combined Summary";
title2 "Submitted by Yue Fan (U08794273)";
proc univariate plot data=dbp;
 var dbp;
 histogram;
run;


title "Distribution of Gender";
title2 "Submitted by Yue Fan (U08794273)";
proc freq data=dbp;
 tables gender;
run;

proc sort data=dbp;
 by gender;
run;

title "Univariate Summary by Gender";
title2 "Submitted by Yue Fan (U08794273)";
proc univariate plot data=dbp;
 by gender;
 var dbp;
run;

title "Boxplot of DBP";
title2 "Submitted by Yue Fan (U08794273)";

proc boxplot data=dbp;
 plot dbp*gender;
run;