OPTIONS PS=60 LS=72 NODATE NONUMBER;

*** Data taken from SAS Procedure's Guide p.142 ***;

DATA skinfold;
   INPUT chest abdomen arm @@;
   CARDS;
09.0 12.0 3.0  20.0 20.0 7.5  10.0 23.0 6.0  12.0  6.0 5.0
08.5 15.0 3.0  12.0 17.0 4.0  11.0 13.0 6.0  05.0 14.0 3.0
13.0 19.0 3.0  22.0 20.0 6.0  10.5 12.0 3.5  17.0 15.0 4.5
10.0  7.0 4.0  17.0 28.0 5.5  15.0 15.5 3.0  16.0 11.0 3.0
07.0 13.0 2.5  16.0 18.0 3.0  09.0 12.5 5.0  17.5 18.0 3.0
15.5 28.5 5.0  21.0 27.5 6.0  23.0 24.0 6.5  11.5 15.0 3.0
22.5 20.0 4.5  13.0 14.0 4.0  14.0 21.0 2.5  04.0  3.0 2.0
05.5  8.5 3.0  21.0 13.0 9.0  16.0 11.0 3.0  17.5 15.0 4.5
25.0 35.0 6.5  21.0  6.0 3.5  16.5 17.0 4.0  09.5 11.5 2.5
15.0 19.0 4.0  13.5  6.5 3.5  16.0 15.0 3.0  26.0 38.0 4.0
12.5 20.0 3.0  05.0  7.5 3.5  12.0 15.0 3.5  15.0 13.0 4.5
17.0 19.5 5.0  16.0 20.0 5.5  09.0  4.0 2.0  19.0 12.0 3.0
16.0 17.5 6.0  14.5 14.5 4.0
;
PROC CORR DATA= skinfold PEARSON SPEARMAN KENDALL ;
   VAR chest abdomen arm;
TITLE 'Spearman''s rho, Kendall''s tau, Pearson''s r' ;

PROC CORR DATA=skinfold PEARSON ;
   VAR chest abdomen;
   PARTIAL arm;
TITLE 'Partial Correlation of Chest and Abdomen';
TITLE2 'Adjusted for Arm';
RUN;

*** Data taken from SAS Procedure's Guide p.146 ***;

DATA setosa;
   INPUT sepallen sepalwid petallen petalwid @@;
   LABEL sepallen='Sepal Length in mm.'
         sepalwid='Sepal Width  in mm.'
         petallen='Petal Length in mm.'
         petalwid='Petal Width  in mm.';
   CARDS;
50 33 14 02   46 34 14 03   46 36 .  02   51 33 17 05
55 35 13 02   48 31 16 02   52 34 14 02   49 36 14 01
44 32 13 02   50 35 16 06   44 30 13 02   47 32 16 02
48 30 14 03   51 38 16 02   48 34 19 02   50 30 16 02
50 32 12 02   43 30 11 .    58 40 12 02   51 38 19 04
49 30 14 02   51 35 14 02   50 34 16 04   46 32 14 02
57 44 15 04   50 36 14 02   54 34 15 04   52 41 15 .
55 42 14 02   49 31 15 02   54 39 17 04   50 34 15 02
44 29 14 02   47 32 13 02   46 31 15 02   51 34 15 02
50 35 13 03   49 31 15 01   54 37 15 02   54 39 13 04
51 35 14 03   48 34 16 02   48 30 14 01   45 23 13 03
57 38 17 03   51 38 15 03   54 34 17 02   51 37 15 04
52 35 15 02   53 37 15 02
;
PROC CORR DATA=setosa nomiss nosimple cov;
   VAR sepallen sepalwid;
   WITH petallen petalwid;
TITLE 'Fisher (1936) Iris Setosa DATA';

RUN;