/* Final Exam Problem #4 */

options ls=78 ps=60 nodate;

data cereal;
  input name $ protein carbos fat calories vita;
  cards;
  Life     6  19  1  110    0
  Grape    3  23  0  100   25
  Super    2  26  0  110   25
  Special  6  21  0  110   25
  Rice     2  25  0  110   25
  Raisin   3  28  1  120   25
  Product  2  24  0  110  100
  Wheaties 3  23  1  110   25
  Total    3  23  1  110  100
  Puffed   1  13  0   50    0
  Pops     1  26  0  110   25
  Smacks   2  25  0  110   25
;
run;

proc cluster data=cereal standard method=ave outtree=tree ccc pseudo;
  id name;
run;

proc tree data=tree;
run;

proc princomp data=cereal out=pcscores;
  var protein carbos fat calories vita;
run;

proc plot data=pcscores;
  plot prin1*prin2 $ name;
run;