data hw1;
input A $ @;
do i=1 to 3;
B=compress("B"||i);
input y @@;
output;
end;
drop i;
cards;
A1 2.4 4.6 4.8
A1 2.7 4.2 4.5
A2 5.8 8.9 9.1
A2 5.2 9.1 9.3
A3 6.1 9.9 13.5
A3 5.7 1.5 13.0
;
run;
proc print ;run;