/* x6_3.sas */
/* Purpose:  */

title1 'Example 6.3.';

data a;
  input sex$ person height sweat temp;
  cards;
M  1 177 18.1 33.9
M  2 189 18.8 33.2
M  3 181 20.4 33.9
M  4 184 19.5 33.8
M  5 183 30.5 33.3
M  6 178 22.2 33.6
M  7 162 19.4 34.2
M  8 176 26.7 33.2
M  9 190 16.6 33.2
M 10 180 45.4 33.5
M 11 179 24.0 33.9
M 12 175 34.6 33.8
M 13 183 21.3 33.5
M 14 177 33.3 33.9
M 15 185 22.9 33.8
M 16 176 18.6 33.5
F  1 160 14.6 32.9
F  2 171 27.0 33.7
F  3 168 27.6 32.3
F  4 171 20.2 33.1
F  5 169 30.8 33.4
F  6 169 17.4 33.5
F  7 167 21.1 33.0
F  8 170 19.3 34.1
F  9 162 21.5 33.8
F 10 160 15.2 33.0
F 11 168 15.4 33.7
F 12 157 25.2 33.9
F 13 161 13.9 34.8
F 14 164 20.2 31.9
F 15 161 25.3 34.0
F 16 180 12.6 33.5
;

proc print data=a;
title2 'List of data.';

proc means data=a;
  var height sweat temp;
  by sex NOTSORTED;
title2 'Simple statistics by sex.';

proc glm data=a;
  class sex;
  model height sweat temp=sex;
  manova h=sex /printe printh;
title2 'Test all 3 coordinates using GLM manova.';

proc glm data=a;
  class sex;
  model sweat temp=sex;
  manova h=sex /printe printh;
title2 'Test 2 coordinates using GLM manova.';

run;