data cer2c;
  input age gender $ weight;
   agecat=1*(10<=age<20)+2*(20<=age<30)
         +3*(30<=age<40)+4*(40<=age<50)
         +5*(age>=50);
 cards;
 7 f  50
 7 m  65
13 f  75
13 m  92
27 f 115
27 m 130
34 f 120
34 m 175
42 f 115
42 m 186
60 f 112
60 m 145
;;;;
proc print;