/******************** potato97a.sps *************************/
set width=80 length = none.
title 'Potato Rot ANOVA'.
data list file='potato.dat' free
         / id   bacteria   temp  oxygen   rot.
variable labels
         bacteria   'Amount of bacteria injected'
         temp       'Storage temperature'
         oxygen     'Amount of oxygen during storage'
         rot        'Diameter of rotten place'.
value labels
         bacteria  1 'Low'  2 'Medium'  3 'High' /
         temp      1 '10 Degrees C'  2 '16 Degrees C' /
         oxygen    1 '2% oxy'  2 '6% oxy'  3 '10% oxy'.

anova rot by bacteria(1,3) temp(1,2) oxygen(1,3).
means variables =  bacteria(1,3) temp(1,2) rot(lowest,highest)
   / crossbreak = rot by temp by bacteria.