dat <- garber.multi.uniformity
desplot(oats ~ col*row, data=dat, flip=TRUE, tick=TRUE,
main="garber.multi.uniformity oats")
desplot(wheat ~ col*row, data=dat, flip=TRUE, tick=TRUE,
main="garber.multi.uniformity wheat")
with(dat, cor(oats, wheat)) # = .37 matches GarberRun the code above in your browser using DataLab