data atp;

input family atpyoung atpold;

lines;

1 4.18 4.81
2 5.16 4.98
3 4.85 4.48
4 3.43 4.19
5 4.53 4.27
6 5.13 4.87
7 4.10 4.74
8 4.77 4.53
9 4.12 3.72
10 4.65 4.62
11 6.03 5.83
12 5.94 4.40
13 5.99 4.87
14 5.43 5.44
15 5.00 4.70
16 4.82 4.14
17 5.25 5.30

run;

proc gplot;
plot atpold*atpyoung;
title 'ATP Levels of Youngest and Oldest Sons in 17 Families';
run;
 
proc corr pearson spearman kendall;
var atpyoung atpold;
title 'Example of Correlation';
title2 'Data of Table 9.3, p. 350 of Fisher and Van Belle';

run;