if (FALSE) {
library(agridat)
data(garber.multi.uniformity)
dat <- garber.multi.uniformity
## aggregate(yield~year, data=dat, FUN=mean)
## year yield
## 1 1923 1883.30741
## 2 1924 15.58296
## 3 1927 76.28965
## 4 1928 32.81415
## 5 1929 19.44650
libs(desplot)
desplot(dat, yield ~ col*row, subset=year==1923,
flip=TRUE, tick=TRUE, aspect=945/436, # true aspect
main="garber.multi.uniformity 1923 oats")
desplot(dat, yield ~ col*row, subset=year==1924,
flip=TRUE, tick=TRUE, aspect=945/436, # true aspect
main="garber.multi.uniformity 1924 wheat")
desplot(dat, yield ~ col*row|year, subset=year >= 1927,
flip=TRUE, tick=TRUE, aspect=1806/736, # true aspect
main="garber.multi.uniformity 1927-1929")
# Correlation of same plots in 1923 vs 1924. Garber has 0.37
# cor(subset(dat, year==1923)$yield,
# subset(dat, year==1924)$yield ) # .37
# Garber 1931 table 2 has .58, .20
# cor(subset(dat, year==1927)$yield,
# subset(dat, year==1928)$yield, use="pair" ) # .58
# cor(subset(dat, year==1927)$yield,
# subset(dat, year==1929)$yield, use="pair" ) # .19
}
Run the code above in your browser using DataLab