/*  Example 12.4(b)  */
FILENAME RAMUS 'bone.dat';
DATA BONES;
  INFILE RAMUS;
  INPUT OBS AGE8 AGE8_5 AGE9 AGE9_5;  
TITLE 'EXAMPLE 12.4(b)';
PROC PRINCOMP COV OUT=RESULTS;
   VAR AGE8 AGE8_5 AGE9 AGE9_5;
proc print;

PROC PLOT;
   PLOT PRIN2*PRIN1;
ENDSAS;