From a9cbc80e24355c954376306b932e70d40e9d7b53 Mon Sep 17 00:00:00 2001
From: Kevin Wright <kw.stat@gmail.com>
Date: Thu, 4 Apr 2024 15:00:54 -0500
Subject: [PATCH] add jurowski.wheat.uniformity

---
 NEWS.md                                |  44 ++-
 data-raw/jurowksi.wheat.uniformity.R   |  18 +
 data-raw/jurowksi.wheat.uniformity.csv |  40 ++
 data/jurowski.wheat.uniformity.txt     | 481 +++++++++++++++++++++++++
 man/agridat.Rd                         |   1 +
 man/jurowski.wheat.uniformity.Rd       |  67 ++++
 6 files changed, 643 insertions(+), 8 deletions(-)
 create mode 100644 data-raw/jurowksi.wheat.uniformity.R
 create mode 100644 data-raw/jurowksi.wheat.uniformity.csv
 create mode 100644 data/jurowski.wheat.uniformity.txt
 create mode 100644 man/jurowski.wheat.uniformity.Rd

diff --git a/NEWS.md b/NEWS.md
index 5ff855fa..3e0031f9 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -4,6 +4,7 @@
 
 * haritonenko.sugarbeet.uniformity
 * jegorow.oats.uniformity
+* jurowski.wheat.uniformity
 * roemer.sugarbeet.uniformity
 * tulaikow.wheat.uniformity
 
@@ -83,7 +84,17 @@
 
 ## New datasets added
 
-arankacami.groundnut.uniformity, barrero.maize, buntaran.wheat, gomez.heterogeneity, grover.diallel, grover.rcb.subsample, hadasch.lettuce, hadasch.lettuce.markers, jones.corn.uniformity, petersen.sorghum.cowpea, woodman.pig
+* arankacami.groundnut.uniformity
+* barrero.maize
+* buntaran.wheat
+* gomez.heterogeneity
+* grover.diallel
+* grover.rcb.subsample
+* hadasch.lettuce
+* hadasch.lettuce.markers
+* jones.corn.uniformity
+* petersen.sorghum.cowpea
+* woodman.pig
 
 ## Other notes
 
@@ -98,8 +109,10 @@ arankacami.groundnut.uniformity, barrero.maize, buntaran.wheat, gomez.heterogene
 
 ## New datasets added
 
-damesa.maize, jayaraman.bamboo, nair.turmeric.uniformity, shafi.tomato.uniformity
-
+* damesa.maize
+* jayaraman.bamboo
+* nair.turmeric.uniformity
+* shafi.tomato.uniformity
 
 
 # agridat 1.17 (2020-08-03)
@@ -185,15 +198,22 @@ acorsi.grayleafspot, becker.chicken, chinloy.fractionalfactorial, cramer.cucumbe
 
 ## New datasets added
 
-cochran.beets, cochran.lattice, jansen.apple, jansen.carrot
-
+* cochran.beets
+* cochran.lattice
+* jansen.apple
+* jansen.carrot
 
 
 # agridat 1.11 (2015-03-03)
 
 ## New datasets added
 
-besag.beans, besag.triticale, burgeuno.alpha, burgueno.rowcol, burgueno.unreplicated, steptoe.morex.pheno
+* besag.beans
+* besag.triticale
+* burgeuno.alpha
+* burgueno.rowcol
+* burgueno.unreplicated
+* steptoe.morex.pheno
 
 ## Other
 
@@ -231,7 +251,8 @@ beall.webworms, besag.endive, brandt.switchback, butron.maize, carlson.germinati
 
 ## New datasets added
 
-brandle.rape, salmon.bunt
+* brandle.rape
+* salmon.bunt
 
 
 
@@ -239,7 +260,14 @@ brandle.rape, salmon.bunt
 
 ## New datasets added
 
-baker.barley.uniformity, bliss.borers, bond.diallel, harris.wateruse, hayman.tobacco, holshouser.splitstrip, pearce.apple, waynick.soil
+* baker.barley.uniformity
+* bliss.borers
+* bond.diallel
+* harris.wateruse
+* hayman.tobacco
+* holshouser.splitstrip
+* pearce.apple
+* waynick.soil
 
 
 
diff --git a/data-raw/jurowksi.wheat.uniformity.R b/data-raw/jurowksi.wheat.uniformity.R
new file mode 100644
index 00000000..e5c8b9d9
--- /dev/null
+++ b/data-raw/jurowksi.wheat.uniformity.R
@@ -0,0 +1,18 @@
+# jurowski.wheat.uniformity.R
+
+libs(desplot,dplyr,kw,lattice,magrittr,readxl,readr,reshape2,tibble)
+
+setwd("c:/drop/rpack/agridat/data-raw/")
+dat <- read_csv("jurowksi.wheat.uniformity.csv", col_names=FALSE)
+
+dat %<>% as.matrix %>% `colnames<-`(1:ncol(dat)) %>% melt %>% rename(row=Var1,col=Var2,yield=value)
+
+head(dat)
+
+jurowski.wheat.uniformity = dat
+kw::agex(jurowski.wheat.uniformity)
+
+libs(desplot)
+desplot(dat, yield~col*row,
+        aspect=10/24, flip=TRUE, tick=TRUE,
+        main="jurowski.wheat.uniformity")
diff --git a/data-raw/jurowksi.wheat.uniformity.csv b/data-raw/jurowksi.wheat.uniformity.csv
new file mode 100644
index 00000000..ee17a3c0
--- /dev/null
+++ b/data-raw/jurowksi.wheat.uniformity.csv
@@ -0,0 +1,40 @@
+359,305,313,323,328,325,313,313,281,328,309,315
+366,318,346,321,308,304,291,239,308,345,316,324
+344,326,326,304,290,301,305,298,290,350,389,341
+349,321,328,336,293,309,315,283,288,294,343,324
+303,327,338,321,290,336,332,298,289,311,361,318
+320,321,321,290,303,301,294,280,290,330,348,320
+306,298,308,304,316,314,296,311,308,316,329,316
+293,302,315,314,304,299,325,311,305,303,294,291
+288,321,325,318,311,324,313,284,283,283,301,325
+284,320,314,298,315,327,313,298,284,283,330,305
+284,320,320,321,321,303,305,308,319,316,363,320
+288,307,329,331,313,315,300,309,316,306,310,311
+299,324,306,326,299,289,296,304,284,294,303,328
+314,342,308,324,304,304,306,311,316,351,333,307
+317,339,329,327,305,298,301,294,283,310,306,290
+301,321,303,298,298,286,306,323,283,316,314,307
+297,320,329,351,292,298,320,311,336,336,321,336
+309,338,304,341,302,305,353,305,333,356,338,334
+320,348,344,326,296,299,303,304,298,326,337,309
+309,331,354,320,290,388,311,302,311,316,357,315
+336,339,353,313,293,286,323,305,331,333,296,309
+349,343,335,308,291,300,334,308,323,385,324,357
+354,314,304,299,306,309,302,296,269,328,308,335
+319,328,326,322,314,304,315,315,314,308,318,321
+306,328,306,302,318,288,324,332,303,398,303,339
+311,337,332,311,316,299,327,314,281,319,330,343
+323,341,309,322,311,304,311,308,301,320,334,357
+333,321,306,321,323,288,347,329,293,308,321,339
+328,308,336,351,327,309,319,314,274,313,316,307
+308,337,319,322,316,303,330,318,285,313,325,318
+341,340,313,328,293,329,318,320,303,319,311,293
+350,336,330,332,331,319,325,319,331,335,302,290
+323,320,314,341,311,301,322,313,318,328,313,289
+313,337,338,346,314,323,334,329,306,268,313,295
+307,306,353,339,289,298,309,309,270,313,313,299
+324,334,343,383,319,333,315,295,281,354,311,311
+333,325,328,356,310,308,278,263,263,316,309,300
+421,334,326,373,313,301,361,334,326,339,339,350
+429,336,344,349,298,304,342,306,323,313,327,302
+386,337,316,325,319,319,341,319,318,291,308,293
diff --git a/data/jurowski.wheat.uniformity.txt b/data/jurowski.wheat.uniformity.txt
new file mode 100644
index 00000000..d76414eb
--- /dev/null
+++ b/data/jurowski.wheat.uniformity.txt
@@ -0,0 +1,481 @@
+"row"	"col"	"yield"
+1	1	359
+2	1	366
+3	1	344
+4	1	349
+5	1	303
+6	1	320
+7	1	306
+8	1	293
+9	1	288
+10	1	284
+11	1	284
+12	1	288
+13	1	299
+14	1	314
+15	1	317
+16	1	301
+17	1	297
+18	1	309
+19	1	320
+20	1	309
+21	1	336
+22	1	349
+23	1	354
+24	1	319
+25	1	306
+26	1	311
+27	1	323
+28	1	333
+29	1	328
+30	1	308
+31	1	341
+32	1	350
+33	1	323
+34	1	313
+35	1	307
+36	1	324
+37	1	333
+38	1	421
+39	1	429
+40	1	386
+1	2	305
+2	2	318
+3	2	326
+4	2	321
+5	2	327
+6	2	321
+7	2	298
+8	2	302
+9	2	321
+10	2	320
+11	2	320
+12	2	307
+13	2	324
+14	2	342
+15	2	339
+16	2	321
+17	2	320
+18	2	338
+19	2	348
+20	2	331
+21	2	339
+22	2	343
+23	2	314
+24	2	328
+25	2	328
+26	2	337
+27	2	341
+28	2	321
+29	2	308
+30	2	337
+31	2	340
+32	2	336
+33	2	320
+34	2	337
+35	2	306
+36	2	334
+37	2	325
+38	2	334
+39	2	336
+40	2	337
+1	3	313
+2	3	346
+3	3	326
+4	3	328
+5	3	338
+6	3	321
+7	3	308
+8	3	315
+9	3	325
+10	3	314
+11	3	320
+12	3	329
+13	3	306
+14	3	308
+15	3	329
+16	3	303
+17	3	329
+18	3	304
+19	3	344
+20	3	354
+21	3	353
+22	3	335
+23	3	304
+24	3	326
+25	3	306
+26	3	332
+27	3	309
+28	3	306
+29	3	336
+30	3	319
+31	3	313
+32	3	330
+33	3	314
+34	3	338
+35	3	353
+36	3	343
+37	3	328
+38	3	326
+39	3	344
+40	3	316
+1	4	323
+2	4	321
+3	4	304
+4	4	336
+5	4	321
+6	4	290
+7	4	304
+8	4	314
+9	4	318
+10	4	298
+11	4	321
+12	4	331
+13	4	326
+14	4	324
+15	4	327
+16	4	298
+17	4	351
+18	4	341
+19	4	326
+20	4	320
+21	4	313
+22	4	308
+23	4	299
+24	4	322
+25	4	302
+26	4	311
+27	4	322
+28	4	321
+29	4	351
+30	4	322
+31	4	328
+32	4	332
+33	4	341
+34	4	346
+35	4	339
+36	4	383
+37	4	356
+38	4	373
+39	4	349
+40	4	325
+1	5	328
+2	5	308
+3	5	290
+4	5	293
+5	5	290
+6	5	303
+7	5	316
+8	5	304
+9	5	311
+10	5	315
+11	5	321
+12	5	313
+13	5	299
+14	5	304
+15	5	305
+16	5	298
+17	5	292
+18	5	302
+19	5	296
+20	5	290
+21	5	293
+22	5	291
+23	5	306
+24	5	314
+25	5	318
+26	5	316
+27	5	311
+28	5	323
+29	5	327
+30	5	316
+31	5	293
+32	5	331
+33	5	311
+34	5	314
+35	5	289
+36	5	319
+37	5	310
+38	5	313
+39	5	298
+40	5	319
+1	6	325
+2	6	304
+3	6	301
+4	6	309
+5	6	336
+6	6	301
+7	6	314
+8	6	299
+9	6	324
+10	6	327
+11	6	303
+12	6	315
+13	6	289
+14	6	304
+15	6	298
+16	6	286
+17	6	298
+18	6	305
+19	6	299
+20	6	388
+21	6	286
+22	6	300
+23	6	309
+24	6	304
+25	6	288
+26	6	299
+27	6	304
+28	6	288
+29	6	309
+30	6	303
+31	6	329
+32	6	319
+33	6	301
+34	6	323
+35	6	298
+36	6	333
+37	6	308
+38	6	301
+39	6	304
+40	6	319
+1	7	313
+2	7	291
+3	7	305
+4	7	315
+5	7	332
+6	7	294
+7	7	296
+8	7	325
+9	7	313
+10	7	313
+11	7	305
+12	7	300
+13	7	296
+14	7	306
+15	7	301
+16	7	306
+17	7	320
+18	7	353
+19	7	303
+20	7	311
+21	7	323
+22	7	334
+23	7	302
+24	7	315
+25	7	324
+26	7	327
+27	7	311
+28	7	347
+29	7	319
+30	7	330
+31	7	318
+32	7	325
+33	7	322
+34	7	334
+35	7	309
+36	7	315
+37	7	278
+38	7	361
+39	7	342
+40	7	341
+1	8	313
+2	8	239
+3	8	298
+4	8	283
+5	8	298
+6	8	280
+7	8	311
+8	8	311
+9	8	284
+10	8	298
+11	8	308
+12	8	309
+13	8	304
+14	8	311
+15	8	294
+16	8	323
+17	8	311
+18	8	305
+19	8	304
+20	8	302
+21	8	305
+22	8	308
+23	8	296
+24	8	315
+25	8	332
+26	8	314
+27	8	308
+28	8	329
+29	8	314
+30	8	318
+31	8	320
+32	8	319
+33	8	313
+34	8	329
+35	8	309
+36	8	295
+37	8	263
+38	8	334
+39	8	306
+40	8	319
+1	9	281
+2	9	308
+3	9	290
+4	9	288
+5	9	289
+6	9	290
+7	9	308
+8	9	305
+9	9	283
+10	9	284
+11	9	319
+12	9	316
+13	9	284
+14	9	316
+15	9	283
+16	9	283
+17	9	336
+18	9	333
+19	9	298
+20	9	311
+21	9	331
+22	9	323
+23	9	269
+24	9	314
+25	9	303
+26	9	281
+27	9	301
+28	9	293
+29	9	274
+30	9	285
+31	9	303
+32	9	331
+33	9	318
+34	9	306
+35	9	270
+36	9	281
+37	9	263
+38	9	326
+39	9	323
+40	9	318
+1	10	328
+2	10	345
+3	10	350
+4	10	294
+5	10	311
+6	10	330
+7	10	316
+8	10	303
+9	10	283
+10	10	283
+11	10	316
+12	10	306
+13	10	294
+14	10	351
+15	10	310
+16	10	316
+17	10	336
+18	10	356
+19	10	326
+20	10	316
+21	10	333
+22	10	385
+23	10	328
+24	10	308
+25	10	398
+26	10	319
+27	10	320
+28	10	308
+29	10	313
+30	10	313
+31	10	319
+32	10	335
+33	10	328
+34	10	268
+35	10	313
+36	10	354
+37	10	316
+38	10	339
+39	10	313
+40	10	291
+1	11	309
+2	11	316
+3	11	389
+4	11	343
+5	11	361
+6	11	348
+7	11	329
+8	11	294
+9	11	301
+10	11	330
+11	11	363
+12	11	310
+13	11	303
+14	11	333
+15	11	306
+16	11	314
+17	11	321
+18	11	338
+19	11	337
+20	11	357
+21	11	296
+22	11	324
+23	11	308
+24	11	318
+25	11	303
+26	11	330
+27	11	334
+28	11	321
+29	11	316
+30	11	325
+31	11	311
+32	11	302
+33	11	313
+34	11	313
+35	11	313
+36	11	311
+37	11	309
+38	11	339
+39	11	327
+40	11	308
+1	12	315
+2	12	324
+3	12	341
+4	12	324
+5	12	318
+6	12	320
+7	12	316
+8	12	291
+9	12	325
+10	12	305
+11	12	320
+12	12	311
+13	12	328
+14	12	307
+15	12	290
+16	12	307
+17	12	336
+18	12	334
+19	12	309
+20	12	315
+21	12	309
+22	12	357
+23	12	335
+24	12	321
+25	12	339
+26	12	343
+27	12	357
+28	12	339
+29	12	307
+30	12	318
+31	12	293
+32	12	290
+33	12	289
+34	12	295
+35	12	299
+36	12	311
+37	12	300
+38	12	350
+39	12	302
+40	12	293
diff --git a/man/agridat.Rd b/man/agridat.Rd
index 8cf6ab53..f74a27ae 100644
--- a/man/agridat.Rd
+++ b/man/agridat.Rd
@@ -65,6 +65,7 @@ name                                      \tab dimensions \tab other \tab model
 \link{iyer.wheat.uniformity}              \tab 25 x 80 \tab xy \tab \cr
 \link{jones.corn.uniformity}              \tab 12 x 12 \tab xy \tab \cr
 \link{jegorow.oats.uniformity}            \tab 8 x 30 \tab xy \tab \cr
+\link{jurowski.wheat.uniformity}          \tab 4 x 40 \tab xy \tab \cr
 \link{kadam.millet.uniformity}            \tab 8 x 20  \tab xy, 2 expts \tab \cr
 \link{kalamkar.potato.uniformity}         \tab 6 x 96  \tab xy \tab \cr
 \link{kalamkar.wheat.uniformity}          \tab 16 x 80 \tab xy, 2 traits \tab \cr
diff --git a/man/jurowski.wheat.uniformity.Rd b/man/jurowski.wheat.uniformity.Rd
new file mode 100644
index 00000000..15a7a0d1
--- /dev/null
+++ b/man/jurowski.wheat.uniformity.Rd
@@ -0,0 +1,67 @@
+\name{jurowski.wheat.uniformity}
+\alias{jurowski.wheat.uniformity}
+\docType{data}
+\title{
+  Uniformity trial of wheat in Russia
+}
+\description{
+  Uniformity trial of wheat in Russia
+}
+\usage{data("jurowski.wheat.uniformity")}
+\format{
+  A data frame with 480 observations on the following 3 variables.
+  \describe{
+    \item{\code{row}}{row ordinate}
+    \item{\code{col}}{column ordinate}
+    \item{\code{yield}}{yield, Pud per plot}
+  }
+}
+\details{
+  The experiment was conducted in Russia at Ofrossimowka. This word
+  "Ofrossimowka" appeared in the German text of Sapehin, but is
+  otherwise extremely difficult to find.  There may be alternate ways
+  the actual Russian name is translated into German/English.
+
+  Likewise, the name "Jurowski" is very difficult to find and may have
+  other transliterations.
+  
+  Sapehin gives the original source as:
+  Arbeiten d. Vers.-St. d. Russ. Ges. f. Zuckerind. 1913.
+  which may expand to
+  Arbeiten der Versuchsstationen der Russ. Ges. f. Zuckerindustrie. 1913.
+
+  Sepehin appendix says the plot size is "4 x 12 m^2".
+  It is not clear which plot dimension is 4 m and which is 12 m.
+  If 4m wide 12m tall, then field is 48m wide x 480m long.
+  If 4m tall 12m wide, then field is 144m wide x 160m long. This seems
+  much more likely.
+
+  Sapehin says the std dev is "21.8 pud".  A "pud" is a Russian unit of
+  weight equal to 16.38 kilograms.
+  
+  Data converted by OCR from Sapehin and hand-checked by K.Wright.
+  
+}
+\source{
+  Sapěhin, A. A. (1927).
+  Beiträge zur Methodik des Feldversuches.
+  Die Landwirtschaflichen Versuchsstationen, 105, 243-259.
+  https://www.google.com/books/edition/Die_Landwirthschaftlichen_Versuchs_Stati/cLZGAAAAYAAJ?hl=en&pg=PA243
+}
+\references{
+  None
+}
+\examples{
+\dontrun{
+  library(agridat)
+  data(jurowski.wheat.uniformity)
+  dat <- jurowski.wheat.uniformity
+  
+  sd(dat$yield)
+  libs(desplot)
+  desplot(dat, yield~col*row,
+          aspect=(40*4)/(12*12), flip=TRUE, tick=TRUE,
+          main="jurowski.wheat.uniformity")
+}
+}
+\keyword{datasets}