if (FALSE) {
library(agridat)
data(immer.sugarbeet.uniformity)
dat <- immer.sugarbeet.uniformity
# Immer numbers rows from the top
libs(desplot)
desplot(dat, yield~col*row,
aspect=110/348, tick=TRUE, flip=TRUE, # true aspect
main="immer.sugarbeet.uniformity - yield")
desplot(dat, sugar~col*row,
aspect=110/348, tick=TRUE, flip=TRUE,
main="immer.sugarbeet.uniformity - sugar")
desplot(dat, purity~col*row,
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