beaven.barley.Rd
Yields of 8 barley varieties in 1913.
data("beaven.barley")
A data frame with 160 observations on the following 4 variables.
row
row
col
column
gen
genotype
yield
yield (grams)
Eight races of barley were grown on a regular pattern of plots.
These data were prepared from Richey (1926) because the text was cleaner.
Each plot was planted 40 inches on a side, but only the middle square 36 inches on a side was harvested.
Field width: 32 plots * 3 feet = 96 feet
Field length: 5 plots * 3 feet = 15 feet
Student. (1923). On testing varieties of cereals. Biometrika, 271-293.
https://doi.org/10.1093/biomet/15.3-4.271
Frederick D. Richey (1926). The moving average as a basis for measuring correlated variation in agronomic experiments. Jour. Agr. Research, 32, 1161-1175.
# \dontrun{ library(agridat) data(beaven.barley) dat <- beaven.barley # Match the means shown in Richey table IV tapply(dat$yield, dat$gen, mean)#> a b c d e f g h #> 298.080 300.710 318.685 295.260 306.410 276.475 304.605 271.820## a b c d e f g h ## 298.080 300.710 318.685 295.260 306.410 276.475 304.605 271.820 # Compare to Student 1923, diagram I,II libs(desplot) desplot(dat, yield ~ col*row, aspect=15/96, # true aspect main="beaven.barley - variety trial", text=gen)# }