options nocenter ls=75;
data new;
infile 'c:\TeX\ST514\guns.dat';
input method group team resp;

proc glm;
class group method team;
model resp = group|method team(group) method*team(group);
random team(group) method*team(group);
test h=group e=team(group);
test h=method e=method*team(group);
test h=group*method e=method*team(group);
means group / duncan lines e=team(group);
means method / duncan lines e=method*team(group);
means group*method;

proc mixed;
class group method team;
model resp=group|method;
random team(group) method*team(group);
lsmeans method group / adjst=duncan tdiff;
run;