DATA wghtclub;
  INPUT idno    1- 4
        name $  6-24
        team $
    strtwght
     endwght;
  loss=strtwght-endwght;
  CARDS;
1023 David Shaw         red 189 165
1049 Amelia Serrano     yellow 145 124
1219 Alan Nance         red 210 192
1246 Ravi Sinha         yellow 194 177
1078 Ashley McKnight    red 127 118
;


PROC PRINT DATA=wghtclub;
  TITLE 'Health Club Data';


PROC TABULATE DATA=wghtclub;
  CLASS team;
  VAR strtwght endwght loss;
  TABLE team, MEAN*(strtwght endwght loss);
  TITLE 'Mean Starting Weight, Ending Weight, and Weight Loss';
RUN;