require("lattice")
# Apple
dat <- batchelor.apple
desplot(yield~col*row, dat, aspect=30/16,
main="Jonathon apple tree yields")
# Lemon
dat <- batchelor.lemon
desplot(yield~col*row, dat, aspect=26/14,
main="Eureka lemon tree yields")
# Navel1 (Arlington)
dat <- batchelor.navel1
desplot(yield~col*row, dat, aspect=50/20,
main="Navel orange tree yields (Arlington)")
# Navel2 (Antelope)
dat <- batchelor.navel2
desplot(yield~col*row, dat, aspect=33/15,
main="Navel orange tree yields (Antelope)")
# Valencia
dat <- batchelor.valencia
desplot(yield~col*row, dat, aspect=20/12,
main="Valencia orange tree yields")
# Walnut
dat <- batchelor.walnut
desplot(yield~col*row, dat, aspect=32/10,
main="Seedling walnut yields")Run the code above in your browser using DataLab