dat <- immer.sugarbeet
# Immer numbers rows from the top
desplot(yield~col*row, data=dat, tick=TRUE, flip=TRUE)
desplot(sugar~col*row, data=dat, tick=TRUE, flip=TRUE)
desplot(yield~col*row, data=dat, tick=TRUE, flip=TRUE)
pairs(dat[,c('yield','sugar','purity')])Run the code above in your browser using DataLab