add roemer.sugarbeet.uniformity

NEWS.md

@@ -1,3 +1,19 @@
+# agridat 1.24 (unpublished)
+
+## New datasets added
+
+* roemer.sugarbeet.uniformity
+
+## Other notes
+
+* baker.strawberry.uniformity: inserted 3 blank columns to more closely align with the experiment layout.
+
+* shafi.tomato.uniformity: Had incorrect yield scale, now divided by 1000.
+
+* odland.soyhay.uniformity: Yields have been divided by 10 so that the yield values are now tons instead of 0.1 tons.
+
+
+
 # agridat 1.23 (2024-01-30)
 
 ## New datasets added

data-raw/roemer.sugarbeet.uniformity.R

@@ -0,0 +1,26 @@
+# roemer.sugarbeet.uniformity.R
+
+libs(desplot,dplyr,kw,lattice,magrittr,readxl,readr,reshape2,tibble)
+
+setwd("c:/drop/rpack/agridat/data-raw/")
+dat16 <- read_excel("roemer.sugarbeet.uniformity.xlsx","1916", col_names=FALSE)
+dat18 <- read_excel("roemer.sugarbeet.uniformity.xlsx","1918", col_names=FALSE)
+
+dat16 %<>% as.matrix %>% `colnames<-`(1:ncol(dat16)) %>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(year=1916)
+dat18 %<>% as.matrix %>% `colnames<-`(1:ncol(dat18)) %>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(year=1918)
+
+dat <- dplyr::bind_rows(dat16, dat18)
+head(dat)
+
+# Divide by 10 to match original paper
+dat$yield <- dat$yield / 10
+dat$year = factor(dat$year)
+
+roemer.sugarbeet.uniformity = dat
+kw::agex(roemer.sugarbeet.uniformity)
+
+libs(desplot)
+desplot(dat, yield~col*row|year,
+        aspect=(48*4.16)/(2*17), flip=TRUE, tick=TRUE,
+        main="roemer.sugarbeet.uniformity")
+

data/roemer.sugarbeet.uniformity.txt

@@ -0,0 +1,193 @@
+"row"	"col"	"yield"	"year"
+1	1	19.8	"1916"
+2	1	20.5	"1916"
+3	1	20	"1916"
+4	1	20	"1916"
+5	1	20	"1916"
+6	1	25	"1916"
+7	1	21.5	"1916"
+8	1	22.5	"1916"
+9	1	23.5	"1916"
+10	1	21.5	"1916"
+11	1	23	"1916"
+12	1	21	"1916"
+13	1	21	"1916"
+14	1	22.5	"1916"
+15	1	23	"1916"
+16	1	20	"1916"
+17	1	23.5	"1916"
+18	1	20	"1916"
+19	1	22.5	"1916"
+20	1	23	"1916"
+21	1	21	"1916"
+22	1	20.5	"1916"
+23	1	22.5	"1916"
+24	1	23.5	"1916"
+25	1	22.5	"1916"
+26	1	23.5	"1916"
+27	1	22	"1916"
+28	1	21	"1916"
+29	1	21.5	"1916"
+30	1	20.5	"1916"
+31	1	22	"1916"
+32	1	22.5	"1916"
+33	1	19.5	"1916"
+34	1	17	"1916"
+35	1	18	"1916"
+36	1	20.5	"1916"
+37	1	20	"1916"
+38	1	24.5	"1916"
+39	1	20	"1916"
+40	1	24	"1916"
+41	1	24.5	"1916"
+42	1	22	"1916"
+43	1	24.5	"1916"
+44	1	20.5	"1916"
+45	1	24.5	"1916"
+46	1	22	"1916"
+47	1	21.5	"1916"
+48	1	22.5	"1916"
+1	2	21	"1916"
+2	2	23.5	"1916"
+3	2	24	"1916"
+4	2	20	"1916"
+5	2	20.5	"1916"
+6	2	25	"1916"
+7	2	24	"1916"
+8	2	24.5	"1916"
+9	2	23.5	"1916"
+10	2	21	"1916"
+11	2	22.5	"1916"
+12	2	22.5	"1916"
+13	2	22	"1916"
+14	2	22.5	"1916"
+15	2	22	"1916"
+16	2	20	"1916"
+17	2	20.5	"1916"
+18	2	20	"1916"
+19	2	22	"1916"
+20	2	20.5	"1916"
+21	2	23	"1916"
+22	2	22	"1916"
+23	2	23.5	"1916"
+24	2	20.5	"1916"
+25	2	25	"1916"
+26	2	23	"1916"
+27	2	21	"1916"
+28	2	20.5	"1916"
+29	2	19.5	"1916"
+30	2	21	"1916"
+31	2	20	"1916"
+32	2	23.5	"1916"
+33	2	20.5	"1916"
+34	2	18.5	"1916"
+35	2	19	"1916"
+36	2	21	"1916"
+37	2	22.5	"1916"
+38	2	22	"1916"
+39	2	21	"1916"
+40	2	22	"1916"
+41	2	22.5	"1916"
+42	2	22.5	"1916"
+43	2	21.5	"1916"
+44	2	21	"1916"
+45	2	24	"1916"
+46	2	23.5	"1916"
+47	2	22	"1916"
+48	2	20	"1916"
+1	1	26.3	"1918"
+2	1	24.6	"1918"
+3	1	27.2	"1918"
+4	1	26.9	"1918"
+5	1	23.4	"1918"
+6	1	26.5	"1918"
+7	1	25.8	"1918"
+8	1	28.5	"1918"
+9	1	22.3	"1918"
+10	1	25.2	"1918"
+11	1	23.8	"1918"
+12	1	28.5	"1918"
+13	1	24.2	"1918"
+14	1	22.8	"1918"
+15	1	29.5	"1918"
+16	1	22	"1918"
+17	1	24.2	"1918"
+18	1	22	"1918"
+19	1	24.2	"1918"
+20	1	26.8	"1918"
+21	1	25.2	"1918"
+22	1	24.5	"1918"
+23	1	25.4	"1918"
+24	1	24.3	"1918"
+25	1	23.8	"1918"
+26	1	21.5	"1918"
+27	1	20	"1918"
+28	1	22.3	"1918"
+29	1	21	"1918"
+30	1	20.2	"1918"
+31	1	24	"1918"
+32	1	19.8	"1918"
+33	1	21.2	"1918"
+34	1	21.4	"1918"
+35	1	21	"1918"
+36	1	22.5	"1918"
+37	1	25.7	"1918"
+38	1	23.2	"1918"
+39	1	22	"1918"
+40	1	21.4	"1918"
+41	1	22.3	"1918"
+42	1	19	"1918"
+43	1	23.3	"1918"
+44	1	23	"1918"
+45	1	20.1	"1918"
+46	1	21.3	"1918"
+47	1	19.6	"1918"
+48	1	18	"1918"
+1	2	22.8	"1918"
+2	2	29.1	"1918"
+3	2	27.7	"1918"
+4	2	26.2	"1918"
+5	2	24.8	"1918"
+6	2	24.2	"1918"
+7	2	24	"1918"
+8	2	22.5	"1918"
+9	2	24.2	"1918"
+10	2	23.8	"1918"
+11	2	22.5	"1918"
+12	2	23.2	"1918"
+13	2	22.6	"1918"
+14	2	23	"1918"
+15	2	25.2	"1918"
+16	2	22.2	"1918"
+17	2	22	"1918"
+18	2	21.3	"1918"
+19	2	22.6	"1918"
+20	2	21.5	"1918"
+21	2	23	"1918"
+22	2	23.8	"1918"
+23	2	23.4	"1918"
+24	2	24	"1918"
+25	2	24.2	"1918"
+26	2	23.8	"1918"
+27	2	22	"1918"
+28	2	20.6	"1918"
+29	2	17.8	"1918"
+30	2	21.4	"1918"
+31	2	21.8	"1918"
+32	2	22.5	"1918"
+33	2	22.3	"1918"
+34	2	23.8	"1918"
+35	2	24	"1918"
+36	2	25.2	"1918"
+37	2	23.2	"1918"
+38	2	26.8	"1918"
+39	2	23.3	"1918"
+40	2	22.2	"1918"
+41	2	23.7	"1918"
+42	2	23.5	"1918"
+43	2	19.3	"1918"
+44	2	25.6	"1918"
+45	2	21.5	"1918"
+46	2	21.5	"1918"
+47	2	19.6	"1918"
+48	2	21.8	"1918"

man/agridat.Rd

@@ -109,6 +109,7 @@ name                                      \tab dimensions \tab other \tab model
 \link{piepho.barley.uniformity}           \tab 30 x 36 \tab xy \tab \cr
 \link{polson.safflower.uniformity}        \tab 52 x 33 \tab xy \tab smith\cr
 \link{robinson.peanut.uniformity}         \tab 16 x 36 \tab xy \tab \cr
+\link{roemer.sugarbeet.uniformity}        \tab 2 x 48  \tab xy \tab \cr
 \link{saunders.maize.uniformity}          \tab 5 x 300 \tab xy, 2 year \tab \cr
 \link{sawyer.multi.uniformity}            \tab 8 x 6   \tab xy, 3 year \tab \cr
 \link{sayer.sugarcane.uniformity}         \tab 8 x 136, 8 x 121 \tab xy, 2 year \tab \cr

man/roemer.sugarbeet.uniformity.Rd

@@ -0,0 +1,64 @@
+\name{roemer.sugarbeet.uniformity}
+\alias{roemer.sugarbeet.uniformity}
+\docType{data}
+\title{
+  Uniformity trial of sugar beets
+}
+\description{
+  Uniformity trial of sugar beets
+}
+\usage{data("roemer.sugarbeet.uniformity")}
+\format{
+  A data frame with 192 observations on the following 4 variables.
+  \describe{
+    \item{\code{row}}{row ordinate}
+    \item{\code{col}}{column ordinate}
+    \item{\code{yield}}{yield per plot, kg}
+    \item{\code{year}}{year of experiment}
+  }
+}
+\details{
+
+Roemer p 27: 
+
+Eigene Versuche mit Zuckerrüben, ausgeführt auf dem Neßthaler Zuchtfeld des Kaiser-Wilhelm-Institutes, Bromberg, in den Jahren 1916, 1917 und 1918. 1916 und 1918 war die Versuchsfläche ein und dieselbe, 6,80 a groß und in den beiden Jahren mit Original Klein-Wanzlebener Zuckerrüben auf 30 X 40 cm bebaut. Vorfrucht für 1916 war Hafer, für 1918 Roggen; 1917 war eine andere Fläche, ebenfalls 6,80 a groß, für den Versuch benußt; gesät wurden zwei verschiedene Zuchten von Strube, Schlanstedt. Beide Flächen sind von sehr gleichmäßiger Bodenbeschaffenheit. Bei der Fläche 1916 und 1918 machte sich im ersten Jahre bei den Reihen 31-33 eine geringe Stelle bemerkbar, die 1918 weit weniger in Erscheinung trat. Die Bodenunterschiede sind in allen drei Jahren geringer als die durch die Versuchstechnik bedingten Fehler.
+
+Translated: Own (Roemer) experiments with sugar beets, carried out on the Neßthal breeding field of the Kaiser Wilhelm Institute, Bromberg, in the years 1916, 1917 and 1918. In 1916 and 1918 the test area was one and the same, 6.80 are large and with original in both years Klein-Wanzleben sugar beets cultivated on 30 x 40 cm. The previous crop for 1916 was oats, for 1918 it was rye; In 1917 another area, also 6.80 a large, was used for the experiment; Two different varieties from Strube, Schlanstedt were sown. Both areas have very uniform soil conditions. In the 1916 and 1918 area, a small spot was noticeable in rows 31-33 in the first year, which was much less noticeable in 1918. In all three years the soil differences are smaller than the errors caused by the experimental technology.
+
+Field width: 2 plots * 17 m = 34 m
+
+Field length: 48 plots * 4.17 m = 200 m
+
+Total area = 34 m * 200 m = 6800 sq m = 6.8 are.
+
+Cochran says: 96 plots, each 1 row x 55.8 ft (17m). Two sets (years)
+1916 and 1918.
+
+}
+\source{
+  Roemer, T. (1920).
+  Der Feldversuch.
+  Arbeiten der Deutschen Landwirtschafts-Gesellschaft, 302.
+  Table 1, page 62.
+  https://www.google.com/books/edition/Arbeiten_der_Deutschen_Landwirtschafts_G/7zBSAQAAMAAJ
+}
+\references{
+  Neyman, J., & Iwaszkiewicz, K. (1935).
+  Statistical problems in agricultural experimentation.
+  Supplement to the Journal of the Royal Statistical Society, 2(2), 107-180.
+}
+\examples{
+\dontrun{
+
+library(agridat)
+data(roemer.sugarbeet.uniformity)
+dat <- roemer.sugarbeet.uniformity
+
+libs(desplot)
+desplot(dat, yield~col*row|year,
+        aspect=(48*4.16)/(2*17), flip=TRUE, tick=TRUE,
+        main="roemer.sugarbeet.uniformity")
+
+}
+}
+\keyword{datasets}