# NOT RUN {
data(immer.sugarbeet.uniformity)
dat <- immer.sugarbeet.uniformity
# Immer numbers rows from the top
require(desplot)
desplot(yield~col*row, data=dat,
aspect=110/348, tick=TRUE, flip=TRUE, # true aspect
main="immer.sugarbeet.uniformity - yield")
desplot(sugar~col*row, data=dat,
aspect=110/348, tick=TRUE, flip=TRUE,
main="immer.sugarbeet.uniformity - sugar")
desplot(purity~col*row, data=dat,
aspect=110/348, tick=TRUE, flip=TRUE,
main="immer.sugarbeet.uniformity - purity")
pairs(dat[,c('yield','sugar','purity')],
main="immer.sugarbeet.uniformity")
# }
Run the code above in your browser using DataLab