rantwo.fit <- aov(yield~seed*farm,rantwo)