agridat: Agricultural Datasets

# mead.turnip.R
# Time-stamp: <13 Feb 2018 20:19:59 c:/x/rpack/agridat/data-done/mead.turnip.R>

libs(asreml,dplyr,fs,kw,lattice,readxl,readr,reshape2,tibble)

mead.turnip <- structure(list(yield = c(0, 1.39, 2.4, 2.56, 2.48, 0.81, 
1.66, 2.33, 2.56, 2.53, 0.69, 1.5, 2.01, 2.56, 2.3, 0.92, 1.56, 
1.95, 1.87, 2.01, 0.69, 1.79, 2.6, 2.89, 2.76, 1.25, 2.22, 2.63, 
2.69, 2.98, 0.69, 1.95, 2.37, 3.04, 2.71, 1.01, 1.95, 2.17, 2.4, 
2.48, 1.18, 2.22, 2.67, 2.71, 3.14, 1.01, 2.4, 2.98, 3.21, 2.89, 
1.75, 2.63, 2.56, 2.83, 2.8, 0.92, 2.22, 2.46, 2.53, 2.56),
block= structure(c("B1", 
"B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", "B1", 
"B1", "B1", "B1", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", "B2", 
"B2", "B2", "B2", "B2", "B2", "B2", "B2", "B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3", 
"B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3", "B3"), class = "character"), spacing = c(4, 4, 4, 4, 4, 8, 
8, 8, 8, 8, 16, 16, 16, 16, 16, 32, 32, 32, 32, 32, 4, 4, 4, 
4, 4, 8, 8, 8, 8, 8, 16, 16, 16, 16, 16, 32, 32, 32, 32, 32, 
4, 4, 4, 4, 4, 8, 8, 8, 8, 8, 16, 16, 16, 16, 16, 32, 32, 32, 
32, 32), density = c(0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 32, 0.5, 
2, 8, 20, 32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 
20, 32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 
32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 32, 0.5, 2, 8, 20, 32)), .Names = c("yield", 
"block", "spacing", "density"), class = "data.frame", row.names = c(NA, 
-60L))