if (FALSE) {
library(agridat)
data(paez.coffee.uniformity)
dat <- paez.coffee.uniformity
libs(reshape2, corrgram)
datt <- acast(dat, plot ~ year)
corrgram(datt, lower.panel=panel.pts,
main="paez.coffee.uniformity")
# Not quite right. The rows are not actually horizontal. See notes above.
libs(desplot)
desplot(dat, yield ~ col*row,subset=year=="Y1",
tick=TRUE, aspect=1,
main="paez.coffee.uniformity - Y1")
desplot(dat, yield ~ col*row,subset=year=="Y2",
tick=TRUE, aspect=1,
main="paez.coffee.uniformity - Y2")
desplot(dat, yield ~ col*row,subset=year=="Y3",
tick=TRUE, aspect=1,
main="paez.coffee.uniformity - Y3")
desplot(dat, yield ~ col*row,subset=year=="Y4",
tick=TRUE, aspect=1,
main="paez.coffee.uniformity - Y4")
desplot(dat, yield ~ col*row,subset=year=="Y5",
tick=TRUE, aspect=1,
main="paez.coffee.uniformity - Y5")
}
Run the code above in your browser using DataLab