DM 'LOG; CLEAR; OUTPUT; CLEAR; ';
OPTIONS PAGENO=1;
data one;
input weight lvef;
cards;
130.6 0.20
129.7 0.18
125.0 0.17
151.4 0.24
149.1 0.23
155.0 0.18
165.4 0.20
138.2 0.25
170.4 0.16
138.1 0.21
132.8 0.21
156.9 0.18
170.8 0.22
155.8 0.18
141.7 0.21
154.9 0.20
173.4 0.18
152.7 0.18
159.8 0.22
136.4 0.20
181.2 0.18
140.4 0.16
140.8 0.25
151.7 0.19
167.0 0.20
118.1 0.15
153.0 0.20
176.7 0.18
run;
 
/* Print the data on the output */
proc print data=one;
title 'WEIGHT AND LVEF DATA';
run;
 
/* Compute summary statistics for the data */
proc means data=one n mean median std min max sum;
var weight;
title 'DESCRIPTIVE STATISTICS FOR WEIGHT DATA'; 
title2 'USING PROC MEANS';
run;
 
/* A different procedure (proc) to get summary statistics */
proc univariate data=one;
var weight;
title 'DESCRIPTIVE STATISTICS FOR WEIGHT DATA'; 
title2 'USING PROC UNIVARIATE';
qqplot; 
run;