data cer2d;
  input age gender $ weight;
   agecat=int(age/10);
   if agecat>5 then agecat=5;
 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;