/*  Measuring Interviewer Variability  -- Randomized Block Design
Stores are Department, Family Apparel, and Men's Apparel
Source:  Stock and Hochstim (1951) Public Opinion Quarterly Vol 15 #2 pp 322-334 
Note: The paper must have misprinted Interviewer E/ Store F (45.00 is correct value)*/

options nodate nonumber ps=54 ls=76;

data one;
input interviewer $ store $ price;
cards;
A D 60.00
A F 60.00
A M 65.00
B D 60.00
B F 69.50
B M 50.00
C D 38.50
C F 45.00
C M 50.00
D D 49.50
D F 49.50
D M 70.00
E D 49.50
E F 45.00
E M 50.00
F D 62.50
F F 60.00
F M 75.00
;
run;

proc means;
class interviewer;
run;

proc means;
class store;
run;

proc gplot;
plot price*store=interviewer / frame;
run;

proc glm;
class interviewer store;
model price = store interviewer;
means store / bon tukey;
run;

quit;