diff --git a/NEWS.md b/NEWS.md index d3a788e..3f1d397 100644 --- a/NEWS.md +++ b/NEWS.md @@ -3,6 +3,8 @@ ## New datasets * beckett.maize.uniformity +* gorski.oats.uniformity +* kotowski.potato.uniformity * lehmann.rice.uniformity # agridat 1.24 (2024-10-25) diff --git a/data-raw/gorski.oats.uniformity.R b/data-raw/gorski.oats.uniformity.R new file mode 100644 index 0000000..9d4a082 --- /dev/null +++ b/data-raw/gorski.oats.uniformity.R @@ -0,0 +1,38 @@ + +libs(desplot,dplyr,kw,lattice,magrittr,readxl,readr,reshape2,tibble) + +# ---------------------------------------------------------------------------- + +# multiple matrices + +dat1 <- read_excel("data-raw/gorski.oats.uniformity.xlsx","one", col_names=FALSE) / 100 +dat2 <- read_excel("data-raw/gorski.oats.uniformity.xlsx","two", col_names=FALSE) / 100 +colnames(dat1) <- colnames(dat2) <- NULL + +# typed as columns, so we need to transpose +dat1 <- t(dat1) %>% as.matrix() +dat2 <- t(dat2) %>% as.matrix() + +dat1 %<>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(field="F1") +dat2 %<>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(field="F2") + + +dat <- dplyr::bind_rows(dat1, dat2) +head(dat) + +gorski.oats.uniformity <- dat +kw::agex(gorski.oats.uniformity) + +## --------------------------------------------------------------------------- + +desplot(dat, yield~col*row, subset=field=="F1", + flip=TRUE, tick=TRUE, aspect=(20)/(10), + main="gorski.oats.uniformity - field F1") +desplot(dat, yield~col*row, subset=field=="F2", + flip=TRUE, tick=TRUE, aspect=(20)/(15), + main="gorski.oats.uniformity - field F2") + + +## --------------------------------------------------------------------------- + + diff --git a/data-raw/gorski.oats.uniformity.xlsx b/data-raw/gorski.oats.uniformity.xlsx new file mode 100644 index 0000000..327601b Binary files /dev/null and b/data-raw/gorski.oats.uniformity.xlsx differ diff --git a/data-raw/kotowski.potato.uniformity.R b/data-raw/kotowski.potato.uniformity.R new file mode 100644 index 0000000..512a277 --- /dev/null +++ b/data-raw/kotowski.potato.uniformity.R @@ -0,0 +1,47 @@ +# kotowski.potato.uniformity.R + +libs(desplot,dplyr,kw,lattice,magrittr,readxl,readr,reshape2,tibble) + +dat1 <- read_excel("data-raw/kotowski.potato.uniformity.xlsx","field1yield", col_names=FALSE) / 10 +dat2 <- read_excel("data-raw/kotowski.potato.uniformity.xlsx","field1starch", col_names=FALSE) / 10 +dat3 <- read_excel("data-raw/kotowski.potato.uniformity.xlsx","field2yield", col_names=FALSE) / 10 +dat4 <- read_excel("data-raw/kotowski.potato.uniformity.xlsx","field2starch", col_names=FALSE) / 10 + +# multiple matrices + +dat1 %<>% as.matrix %>% `colnames<-`(1:ncol(dat1)) %>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(field="F1") +dat3 %<>% as.matrix %>% `colnames<-`(1:ncol(dat3)) %>% melt %>% rename(row=Var1,col=Var2,yield=value) %>% mutate(field="F2") + +dat2 %<>% as.matrix %>% `colnames<-`(1:ncol(dat2)) %>% melt %>% rename(row=Var1,col=Var2,starch=value) %>% mutate(field="F1") +dat4 %<>% as.matrix %>% `colnames<-`(1:ncol(dat4)) %>% melt %>% rename(row=Var1,col=Var2,starch=value) %>% mutate(field="F2") + + +dat13 <- dplyr::bind_rows(dat1, dat3) +dat24 <- dplyr::bind_rows(dat2, dat4) + +dat <- select(dat13, field, row, col, yield) +dat <- cbind(dat, select(dat24, starch)) + +## --------------------------------------------------------------------------- + +kotowski.potato.uniformity <- dat +kw::agex(kotowski.potato.uniformity) + +libs(desplot) +desplot(dat, yield~col*row|field, subset=field=="F1", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(12*2.5), + main="kotowski.potato.uniformity - yield, field F1") +desplot(dat, yield~col*row|field, subset=field=="F2", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(26*2.5), + main="kotowski.potato.uniformity - yield, field F2") +desplot(dat, starch~col*row|field, subset=field=="F1", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(12*2.5), + main="kotowski.potato.uniformity - starch, field F1") +desplot(dat, starch~col*row|field, subset=field=="F2", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(26*2.5), + main="kotowski.potato.uniformity - starch, field F2") + diff --git a/data-raw/kotowski.potato.uniformity.xlsx b/data-raw/kotowski.potato.uniformity.xlsx new file mode 100644 index 0000000..39628dd Binary files /dev/null and b/data-raw/kotowski.potato.uniformity.xlsx differ diff --git a/data/gorski.oats.uniformity.txt b/data/gorski.oats.uniformity.txt new file mode 100644 index 0000000..dedab2a --- /dev/null +++ b/data/gorski.oats.uniformity.txt @@ -0,0 +1,501 @@ +"row" "col" "yield" "field" +1 1 5.1 "F1" +2 1 5.1 "F1" +3 1 6.4 "F1" +4 1 5.3 "F1" +5 1 5.55 "F1" +6 1 5.4 "F1" +7 1 6.15 "F1" +8 1 4.9 "F1" +9 1 5.3 "F1" +10 1 6.05 "F1" +11 1 6.7 "F1" +12 1 6.3 "F1" +13 1 6.3 "F1" +14 1 6.7 "F1" +15 1 5.25 "F1" +16 1 4.9 "F1" +17 1 NA "F1" +18 1 4.8 "F1" +19 1 5.45 "F1" +20 1 5.85 "F1" +1 2 5.7 "F1" +2 2 4.5 "F1" +3 2 4.6 "F1" +4 2 3.95 "F1" +5 2 5.5 "F1" +6 2 4.05 "F1" +7 2 5.2 "F1" +8 2 6.1 "F1" +9 2 5.75 "F1" +10 2 5.25 "F1" +11 2 5 "F1" +12 2 5.5 "F1" +13 2 4.85 "F1" +14 2 5.2 "F1" +15 2 5.3 "F1" +16 2 5.85 "F1" +17 2 5.45 "F1" +18 2 6 "F1" +19 2 NA "F1" +20 2 7 "F1" +1 3 3.9 "F1" +2 3 4 "F1" +3 3 4.7 "F1" +4 3 4.35 "F1" +5 3 5.25 "F1" +6 3 4.7 "F1" +7 3 4.2 "F1" +8 3 5.1 "F1" +9 3 6.5 "F1" +10 3 6.3 "F1" +11 3 5.95 "F1" +12 3 4.5 "F1" +13 3 5.25 "F1" +14 3 5.95 "F1" +15 3 6.05 "F1" +16 3 5.95 "F1" +17 3 NA "F1" +18 3 4.55 "F1" +19 3 7.1 "F1" +20 3 5.5 "F1" +1 4 4.4 "F1" +2 4 4.5 "F1" +3 4 5 "F1" +4 4 4.1 "F1" +5 4 4.35 "F1" +6 4 6.7 "F1" +7 4 5.05 "F1" +8 4 6.1 "F1" +9 4 5.4 "F1" +10 4 5.4 "F1" +11 4 6.6 "F1" +12 4 6.25 "F1" +13 4 5.95 "F1" +14 4 5.7 "F1" +15 4 5.55 "F1" +16 4 5.6 "F1" +17 4 5.9 "F1" +18 4 6.35 "F1" +19 4 6.1 "F1" +20 4 5.2 "F1" +1 5 6.2 "F1" +2 5 5 "F1" +3 5 6 "F1" +4 5 5.1 "F1" +5 5 4.75 "F1" +6 5 4.95 "F1" +7 5 6.05 "F1" +8 5 5.9 "F1" +9 5 6.2 "F1" +10 5 5.95 "F1" +11 5 5.25 "F1" +12 5 5.7 "F1" +13 5 6.85 "F1" +14 5 6.7 "F1" +15 5 6.2 "F1" +16 5 5.85 "F1" +17 5 7.8 "F1" +18 5 5.8 "F1" +19 5 6.15 "F1" +20 5 5.95 "F1" +1 6 5.1 "F1" +2 6 4.8 "F1" +3 6 5.2 "F1" +4 6 5.5 "F1" +5 6 6.2 "F1" +6 6 4.3 "F1" +7 6 5 "F1" +8 6 5.6 "F1" +9 6 5.4 "F1" +10 6 5.15 "F1" +11 6 6.15 "F1" +12 6 5.4 "F1" +13 6 5.25 "F1" +14 6 6.4 "F1" +15 6 6.2 "F1" +16 6 6.4 "F1" +17 6 6.7 "F1" +18 6 6.15 "F1" +19 6 6.15 "F1" +20 6 6.15 "F1" +1 7 5.2 "F1" +2 7 5 "F1" +3 7 5.65 "F1" +4 7 5.9 "F1" +5 7 5.5 "F1" +6 7 5.9 "F1" +7 7 5.75 "F1" +8 7 5.95 "F1" +9 7 5.7 "F1" +10 7 6.4 "F1" +11 7 6.2 "F1" +12 7 6.6 "F1" +13 7 6.4 "F1" +14 7 6.4 "F1" +15 7 5.8 "F1" +16 7 5.95 "F1" +17 7 7 "F1" +18 7 7.15 "F1" +19 7 6.5 "F1" +20 7 5.75 "F1" +1 8 6.7 "F1" +2 8 6.2 "F1" +3 8 5.65 "F1" +4 8 5.7 "F1" +5 8 6.2 "F1" +6 8 4.9 "F1" +7 8 5.8 "F1" +8 8 4.9 "F1" +9 8 5.9 "F1" +10 8 5.6 "F1" +11 8 6.2 "F1" +12 8 7.4 "F1" +13 8 6.8 "F1" +14 8 7.3 "F1" +15 8 6.7 "F1" +16 8 6.6 "F1" +17 8 8.9 "F1" +18 8 7 "F1" +19 8 6.35 "F1" +20 8 5.9 "F1" +1 9 8.3 "F1" +2 9 6.85 "F1" +3 9 5.9 "F1" +4 9 5.65 "F1" +5 9 6.45 "F1" +6 9 7.35 "F1" +7 9 5.2 "F1" +8 9 5.5 "F1" +9 9 6.85 "F1" +10 9 6.3 "F1" +11 9 5.6 "F1" +12 9 7.15 "F1" +13 9 6.4 "F1" +14 9 6.7 "F1" +15 9 5.85 "F1" +16 9 6.4 "F1" +17 9 7.3 "F1" +18 9 6.8 "F1" +19 9 6.85 "F1" +20 9 6.4 "F1" +1 10 6 "F1" +2 10 6 "F1" +3 10 5.4 "F1" +4 10 5.3 "F1" +5 10 5.7 "F1" +6 10 5.3 "F1" +7 10 5.55 "F1" +8 10 6.4 "F1" +9 10 5.7 "F1" +10 10 5.6 "F1" +11 10 5.55 "F1" +12 10 5.4 "F1" +13 10 5.4 "F1" +14 10 6.5 "F1" +15 10 6.45 "F1" +16 10 7.2 "F1" +17 10 6.9 "F1" +18 10 5.45 "F1" +19 10 6.3 "F1" +20 10 6.25 "F1" +1 1 9 "F2" +2 1 8 "F2" +3 1 9.55 "F2" +4 1 9.55 "F2" +5 1 8.3 "F2" +6 1 7.8 "F2" +7 1 5.7 "F2" +8 1 8.8 "F2" +9 1 9.25 "F2" +10 1 9.2 "F2" +11 1 7.7 "F2" +12 1 8.75 "F2" +13 1 8.95 "F2" +14 1 7.1 "F2" +15 1 7 "F2" +16 1 7.9 "F2" +17 1 6.95 "F2" +18 1 8.6 "F2" +19 1 8.5 "F2" +20 1 7.4 "F2" +1 2 8.8 "F2" +2 2 8.4 "F2" +3 2 9.7 "F2" +4 2 8.85 "F2" +5 2 9.8 "F2" +6 2 8.05 "F2" +7 2 6.5 "F2" +8 2 8.7 "F2" +9 2 8.1 "F2" +10 2 7.5 "F2" +11 2 7.5 "F2" +12 2 8.5 "F2" +13 2 9.6 "F2" +14 2 7.75 "F2" +15 2 6.6 "F2" +16 2 7.1 "F2" +17 2 7.75 "F2" +18 2 8.6 "F2" +19 2 7 "F2" +20 2 7.6 "F2" +1 3 10.55 "F2" +2 3 9 "F2" +3 3 10.3 "F2" +4 3 9.45 "F2" +5 3 8.5 "F2" +6 3 8.85 "F2" +7 3 7.5 "F2" +8 3 9.35 "F2" +9 3 7.6 "F2" +10 3 7.45 "F2" +11 3 9 "F2" +12 3 7.7 "F2" +13 3 7.8 "F2" +14 3 8.6 "F2" +15 3 8.95 "F2" +16 3 8.5 "F2" +17 3 7.8 "F2" +18 3 6.6 "F2" +19 3 7 "F2" +20 3 6.3 "F2" +1 4 9.2 "F2" +2 4 8.35 "F2" +3 4 9.75 "F2" +4 4 7.3 "F2" +5 4 8.3 "F2" +6 4 9.2 "F2" +7 4 7.9 "F2" +8 4 7.2 "F2" +9 4 8.1 "F2" +10 4 7.95 "F2" +11 4 9.3 "F2" +12 4 8.2 "F2" +13 4 8.1 "F2" +14 4 8.2 "F2" +15 4 8.45 "F2" +16 4 6.75 "F2" +17 4 7.7 "F2" +18 4 7.3 "F2" +19 4 7.5 "F2" +20 4 7.3 "F2" +1 5 8.8 "F2" +2 5 8.35 "F2" +3 5 8.1 "F2" +4 5 8.75 "F2" +5 5 7.6 "F2" +6 5 8.65 "F2" +7 5 8.2 "F2" +8 5 8.7 "F2" +9 5 7.8 "F2" +10 5 7.75 "F2" +11 5 10 "F2" +12 5 7.9 "F2" +13 5 8.7 "F2" +14 5 8.5 "F2" +15 5 8.3 "F2" +16 5 8.35 "F2" +17 5 8.5 "F2" +18 5 5.65 "F2" +19 5 7.7 "F2" +20 5 7.7 "F2" +1 6 9 "F2" +2 6 8.1 "F2" +3 6 11 "F2" +4 6 11.3 "F2" +5 6 8 "F2" +6 6 7.9 "F2" +7 6 7.8 "F2" +8 6 7.8 "F2" +9 6 6.85 "F2" +10 6 7.1 "F2" +11 6 8.2 "F2" +12 6 7.9 "F2" +13 6 7.2 "F2" +14 6 7.1 "F2" +15 6 7.7 "F2" +16 6 7.35 "F2" +17 6 7.9 "F2" +18 6 7.9 "F2" +19 6 9.1 "F2" +20 6 8.2 "F2" +1 7 9.2 "F2" +2 7 8.35 "F2" +3 7 9.3 "F2" +4 7 9.6 "F2" +5 7 7.5 "F2" +6 7 7.8 "F2" +7 7 8.1 "F2" +8 7 8.2 "F2" +9 7 7.6 "F2" +10 7 7 "F2" +11 7 9.2 "F2" +12 7 6.6 "F2" +13 7 7.7 "F2" +14 7 7.8 "F2" +15 7 8.4 "F2" +16 7 6.8 "F2" +17 7 9.1 "F2" +18 7 6.8 "F2" +19 7 7.3 "F2" +20 7 7.3 "F2" +1 8 9.55 "F2" +2 8 9 "F2" +3 8 8.85 "F2" +4 8 10.15 "F2" +5 8 9.7 "F2" +6 8 7.55 "F2" +7 8 10.7 "F2" +8 8 7.6 "F2" +9 8 8.6 "F2" +10 8 8.3 "F2" +11 8 9 "F2" +12 8 8.9 "F2" +13 8 7.4 "F2" +14 8 7.5 "F2" +15 8 7.55 "F2" +16 8 7.45 "F2" +17 8 6.95 "F2" +18 8 7.5 "F2" +19 8 7.7 "F2" +20 8 7.4 "F2" +1 9 10.7 "F2" +2 9 9.1 "F2" +3 9 9.75 "F2" +4 9 10.45 "F2" +5 9 8.1 "F2" +6 9 8.4 "F2" +7 9 8.7 "F2" +8 9 8 "F2" +9 9 7.75 "F2" +10 9 8 "F2" +11 9 8.8 "F2" +12 9 7.25 "F2" +13 9 7.5 "F2" +14 9 6.9 "F2" +15 9 7.75 "F2" +16 9 6.45 "F2" +17 9 6.7 "F2" +18 9 7.3 "F2" +19 9 7.3 "F2" +20 9 9 "F2" +1 10 9.8 "F2" +2 10 8.45 "F2" +3 10 9.9 "F2" +4 10 10.35 "F2" +5 10 8.9 "F2" +6 10 8.3 "F2" +7 10 7.5 "F2" +8 10 7.55 "F2" +9 10 7.5 "F2" +10 10 8 "F2" +11 10 9.2 "F2" +12 10 9 "F2" +13 10 7.5 "F2" +14 10 6.6 "F2" +15 10 7.8 "F2" +16 10 7.2 "F2" +17 10 6.35 "F2" +18 10 6.3 "F2" +19 10 7.6 "F2" +20 10 8.2 "F2" +1 11 10.35 "F2" +2 11 9.15 "F2" +3 11 9.2 "F2" +4 11 8.65 "F2" +5 11 9.5 "F2" +6 11 7.6 "F2" +7 11 7.2 "F2" +8 11 8.1 "F2" +9 11 8.2 "F2" +10 11 8.4 "F2" +11 11 9 "F2" +12 11 8.8 "F2" +13 11 8.1 "F2" +14 11 7.9 "F2" +15 11 6.95 "F2" +16 11 7.3 "F2" +17 11 7.2 "F2" +18 11 6.7 "F2" +19 11 7.6 "F2" +20 11 6.9 "F2" +1 12 10.3 "F2" +2 12 7.95 "F2" +3 12 8.25 "F2" +4 12 9.75 "F2" +5 12 9.6 "F2" +6 12 7.5 "F2" +7 12 7 "F2" +8 12 8.45 "F2" +9 12 7.6 "F2" +10 12 6.9 "F2" +11 12 9.5 "F2" +12 12 7 "F2" +13 12 7.6 "F2" +14 12 7.3 "F2" +15 12 7.3 "F2" +16 12 8.7 "F2" +17 12 7.6 "F2" +18 12 6.3 "F2" +19 12 6.55 "F2" +20 12 7.2 "F2" +1 13 11.5 "F2" +2 13 8.8 "F2" +3 13 9.15 "F2" +4 13 9.75 "F2" +5 13 8.2 "F2" +6 13 6.9 "F2" +7 13 8.1 "F2" +8 13 7.05 "F2" +9 13 7.35 "F2" +10 13 7.4 "F2" +11 13 8.1 "F2" +12 13 8.3 "F2" +13 13 8.8 "F2" +14 13 7.6 "F2" +15 13 7.35 "F2" +16 13 7.4 "F2" +17 13 6.55 "F2" +18 13 6.6 "F2" +19 13 7.6 "F2" +20 13 7.25 "F2" +1 14 10.15 "F2" +2 14 9.55 "F2" +3 14 9.55 "F2" +4 14 9.3 "F2" +5 14 10.5 "F2" +6 14 7.55 "F2" +7 14 8.8 "F2" +8 14 7.4 "F2" +9 14 8 "F2" +10 14 7.6 "F2" +11 14 8.7 "F2" +12 14 7.1 "F2" +13 14 7.8 "F2" +14 14 8.1 "F2" +15 14 7.5 "F2" +16 14 8.3 "F2" +17 14 8 "F2" +18 14 7.9 "F2" +19 14 7.95 "F2" +20 14 7.35 "F2" +1 15 10.25 "F2" +2 15 8.05 "F2" +3 15 10 "F2" +4 15 9.3 "F2" +5 15 10.1 "F2" +6 15 8.3 "F2" +7 15 9.9 "F2" +8 15 8.45 "F2" +9 15 8.8 "F2" +10 15 8.9 "F2" +11 15 9.45 "F2" +12 15 8.8 "F2" +13 15 8.3 "F2" +14 15 8.2 "F2" +15 15 7.6 "F2" +16 15 7.8 "F2" +17 15 7.2 "F2" +18 15 7.2 "F2" +19 15 7.9 "F2" +20 15 9 "F2" diff --git a/data/kotowski.potato.uniformity.txt b/data/kotowski.potato.uniformity.txt new file mode 100644 index 0000000..5b535df --- /dev/null +++ b/data/kotowski.potato.uniformity.txt @@ -0,0 +1,153 @@ +"field" "row" "col" "yield" "starch" +"F1" 1 1 42.3 20.9 +"F1" 2 1 46.1 21 +"F1" 3 1 49.7 20.6 +"F1" 4 1 46.7 19.8 +"F1" 1 2 38.2 20 +"F1" 2 2 42.2 20.5 +"F1" 3 2 35.7 22.1 +"F1" 4 2 36.2 19.6 +"F1" 1 3 38.3 21.3 +"F1" 2 3 46.9 21.1 +"F1" 3 3 42.2 20.9 +"F1" 4 3 32.7 21.2 +"F1" 1 4 54.2 21.1 +"F1" 2 4 46 21.2 +"F1" 3 4 50.9 21.1 +"F1" 4 4 41.9 20.3 +"F1" 1 5 53.7 20.9 +"F1" 2 5 44.4 20.4 +"F1" 3 5 46.2 20.3 +"F1" 4 5 44.2 20.6 +"F1" 1 6 51.2 21.3 +"F1" 2 6 47 20.4 +"F1" 3 6 63.2 20.7 +"F1" 4 6 55.2 21.4 +"F1" 1 7 50.2 19.7 +"F1" 2 7 53.2 20.4 +"F1" 3 7 48.7 20.2 +"F1" 4 7 57.2 19.6 +"F1" 1 8 62.2 19.3 +"F1" 2 8 52.9 19.3 +"F1" 3 8 44.2 20 +"F1" 4 8 50.7 19.1 +"F1" 1 9 47.9 20.4 +"F1" 2 9 45.5 21.2 +"F1" 3 9 45.7 20.5 +"F1" 4 9 45.2 20 +"F1" 1 10 48.2 21.4 +"F1" 2 10 56 20.5 +"F1" 3 10 45.9 20.3 +"F1" 4 10 50.2 19.5 +"F1" 1 11 61.2 19.5 +"F1" 2 11 59.2 20.3 +"F1" 3 11 55.2 17.8 +"F1" 4 11 67.2 18.8 +"F1" 1 12 54.7 20.7 +"F1" 2 12 56.7 21.2 +"F1" 3 12 49.7 21 +"F1" 4 12 52.2 19.3 +"F2" 1 1 46.2 22.2 +"F2" 2 1 54.7 20.9 +"F2" 3 1 48.7 21 +"F2" 4 1 45 20.6 +"F2" 1 2 38.4 21.2 +"F2" 2 2 46.4 21 +"F2" 3 2 45.4 22.1 +"F2" 4 2 37.2 21.2 +"F2" 1 3 40.2 21.5 +"F2" 2 3 44.2 21.5 +"F2" 3 3 45.2 21.5 +"F2" 4 3 43.2 21.6 +"F2" 1 4 47.7 21.1 +"F2" 2 4 49.7 20.5 +"F2" 3 4 48.7 21.1 +"F2" 4 4 49.7 21.7 +"F2" 1 5 42.9 21.3 +"F2" 2 5 48.2 22.3 +"F2" 3 5 35.7 21.8 +"F2" 4 5 41.3 21.9 +"F2" 1 6 40.7 20.6 +"F2" 2 6 46.7 20.3 +"F2" 3 6 40.7 20.4 +"F2" 4 6 40.2 20.6 +"F2" 1 7 43.7 20.6 +"F2" 2 7 43.7 20.3 +"F2" 3 7 40.7 19 +"F2" 4 7 29.7 20.6 +"F2" 1 8 51.9 19.8 +"F2" 2 8 44.2 20.3 +"F2" 3 8 36.7 19.5 +"F2" 4 8 31.2 20.4 +"F2" 1 9 42.7 21.3 +"F2" 2 9 36.7 20.3 +"F2" 3 9 28.9 20.2 +"F2" 4 9 30.9 20.9 +"F2" 1 10 40.4 20.3 +"F2" 2 10 48.2 20 +"F2" 3 10 34.7 20.4 +"F2" 4 10 31.5 19.3 +"F2" 1 11 47.7 19.5 +"F2" 2 11 58.7 19.6 +"F2" 3 11 48.2 19.8 +"F2" 4 11 44.7 20.1 +"F2" 1 12 40.7 20.5 +"F2" 2 12 45.2 19.7 +"F2" 3 12 46.9 20.6 +"F2" 4 12 48.9 20.2 +"F2" 1 13 52 19.7 +"F2" 2 13 47.2 19.6 +"F2" 3 13 47.2 19.2 +"F2" 4 13 52.7 19.9 +"F2" 1 14 53.2 19.3 +"F2" 2 14 50.2 20.1 +"F2" 3 14 54.9 19.8 +"F2" 4 14 57.2 19.9 +"F2" 1 15 47.9 21 +"F2" 2 15 40.7 19.6 +"F2" 3 15 41.2 19.3 +"F2" 4 15 44.2 20.3 +"F2" 1 16 43.9 20.5 +"F2" 2 16 50.2 20.9 +"F2" 3 16 44.2 19.9 +"F2" 4 16 47.7 20.1 +"F2" 1 17 42.7 21.1 +"F2" 2 17 45.2 20.2 +"F2" 3 17 41.2 20.6 +"F2" 4 17 51.7 20.6 +"F2" 1 18 47.7 20.7 +"F2" 2 18 51.2 19.2 +"F2" 3 18 57.2 19.3 +"F2" 4 18 50.2 20.5 +"F2" 1 19 49.4 21 +"F2" 2 19 49.7 19.9 +"F2" 3 19 65.2 16.1 +"F2" 4 19 51.6 20.2 +"F2" 1 20 47.2 21 +"F2" 2 20 47.7 19.9 +"F2" 3 20 54.2 17 +"F2" 4 20 43.9 20 +"F2" 1 21 47.2 21.5 +"F2" 2 21 45.7 20.9 +"F2" 3 21 46.2 18.7 +"F2" 4 21 41.3 20.8 +"F2" 1 22 46.2 20.2 +"F2" 2 22 45.4 19.6 +"F2" 3 22 36.4 20.3 +"F2" 4 22 35.9 20.9 +"F2" 1 23 40.7 20.1 +"F2" 2 23 42.2 20 +"F2" 3 23 41.7 19.5 +"F2" 4 23 41.5 20.2 +"F2" 1 24 44.7 19.7 +"F2" 2 24 48.2 20.5 +"F2" 3 24 45.2 19.7 +"F2" 4 24 39.9 20.7 +"F2" 1 25 56.2 19.8 +"F2" 2 25 59.7 19.5 +"F2" 3 25 54.7 20.4 +"F2" 4 25 47.4 20.1 +"F2" 1 26 55.4 19.2 +"F2" 2 26 68.2 19.6 +"F2" 3 26 56.2 19.8 +"F2" 4 26 46.4 19.5 diff --git a/man/agridat.Rd b/man/agridat.Rd index ea29040..3358725 100644 --- a/man/agridat.Rd +++ b/man/agridat.Rd @@ -54,8 +54,9 @@ name \tab dimensions \tab other \tab model \link{garber.multi.uniformity} \tab 6 x 45 \tab xy, 5 years/crops \tab \cr \link{gomez.rice.uniformity} \tab 18 x 36 \tab xy \tab aov,smith \cr \link{goulden.barley.uniformity} \tab 48 x 48 \tab xy \tab \cr +\link{gorski.oats.uniformity} \tab 10 x 20, 15 x 20 \tab xy \tab \cr \link{hansen.multi.uniformity} \tab 6 x 5, 16 x 8 \tab xy, 4-5 yr \tab splom\cr -\link{haritonenko.sugarbeet.uniformity} \tab 4 x 104 \tab xy \tab \cr +\link{haritonenko.sugarbeet.uniformity} \tab 4 x 104 \tab xy \tab \cr \link{harris.multi.uniformity} \tab 2 x 23 \tab xy, 23 crops \tab corrgram\cr \link{hartman.tomato.uniformity} \tab 12 x 32 \tab xy \tab \cr \link{heath.cabbage.uniformity} \tab 6 x 8 \tab xy \tab \cr @@ -75,6 +76,7 @@ name \tab dimensions \tab other \tab model \link{khan.brassica.uniformity} \tab 18 x 18 \tab xy, 2 fields \tab \cr \link{khin.rice.uniformity} \tab 30 x 36 \tab xy \tab \cr \link{kiesselbach.oats.uniformity} \tab 3 x 69 \tab xy \tab \cr +\link{kotowski.potato.uniformity} \tab 12 x 4, 26 x 4 \tab xy \tab \cr \link{kristensen.barley.uniformity} \tab 22 x 11 \tab xy \tab \cr \link{kulkarni.sorghum.uniformity} \tab 4 x 40 \tab xy, 3 years \tab \cr \link{lander.multi.uniformity} \tab 5 x 39 \tab xy, 4 years \tab \cr diff --git a/man/gorski.oats.uniformity.Rd b/man/gorski.oats.uniformity.Rd new file mode 100644 index 0000000..c8edbe2 --- /dev/null +++ b/man/gorski.oats.uniformity.Rd @@ -0,0 +1,82 @@ +\name{gorski.oats.uniformity} +\alias{gorski.oats.uniformity} +\docType{data} +\title{ + Uniformity trial of oats in Poland +} +\description{ + Uniformity trial of oats in Poland +} +\usage{data("gorski.oats.uniformity")} +\format{ + A data frame with 500 observations on the following 4 variables. + \describe{ + \item{\code{row}}{row ordinate} + \item{\code{col}}{column ordinate} + \item{\code{yield}}{yield, kg} + \item{\code{field}}{field} + } +} +\details{ + + The authors were from Agricultural University of Dublany near + Lemberg. (Originally Poland, but now Ukraine.) The experiments were + carried out on the fields of the Dublany estate. + + Gorski & Stefaniow (1917) does not show the layout of the plots. They + say more details are given in the journal "Roczniki nauk rolniczych". + (Not yet found) + Kotowski (1924) does shows the layout of the plots. + + Field F1 + + The loamy field was sown with early oats "Rychlik mikulicki". + There were measured 200 plots of 9 square meters each and + harvested them in one day with a sickle. Two days later, the harvest + yield from each plot was determined. We were unable to determine the + harvest from plots no. 161, 163, 182, so only the harvest from 197 + (instead of 200) plots was processed. + + Field width: 10 plots x 3 m = 30 m + + Field length: 20 plots x 3 m = 60 m + + Field F2 + + The loess field used "Ligowo" oats on 300 9 sq m plots. + + Data were typed and checked by K.Wright 2024.12.11. + Text translation via Google Translate. + The actual plot dimensions are not given, but 3m by 3m is a good + approximation or may be exact. +} +\source{ + Gorski, M. and Stefaniow, M. (1917). + Die Anwendbarkeit der Wahrscheinlichkeits-rechnung bei Feldversuchen. + Die Landwirtschaflichen Versuchsstationen, 90, 225-240. + https://www.google.com/books/edition/Die_Landwirtschaftlichen_versuchs_statio/qr8jAQAAMAAJ?hl=en&gbpv=1&pg=RA1-PA225 +} +\references{ + Kotowski, Feliks. (1924). + A criterion of field homegenity and its value in field + trials. (English title). + Roczniki Nauk Rolniczych, 11, 26-35. + https://www.google.com/books/edition/Roczniki_nauk_rolniczych/mz0iAQAAIAAJ + Polish version on page 26. English abstract on page 35. +} +\examples{ +\dontrun{ +libs(agridat) +data(gorski.oats.uniformity) +dat <- gorski.oats.uniformity + +libs(desplot) +desplot(dat, yield~col*row, subset=field=="F1", + flip=TRUE, tick=TRUE, aspect=(20)/(10), + main="gorski.oats.uniformity - field F1") +desplot(dat, yield~col*row, subset=field=="F2", + flip=TRUE, tick=TRUE, aspect=(20)/(15), + main="gorski.oats.uniformity - field F2") +} +} +\keyword{datasets} diff --git a/man/kotowski.potato.uniformity.Rd b/man/kotowski.potato.uniformity.Rd new file mode 100644 index 0000000..904c254 --- /dev/null +++ b/man/kotowski.potato.uniformity.Rd @@ -0,0 +1,84 @@ +\name{kotowski.potato.uniformity} +\alias{kotowski.potato.uniformity} +\docType{data} +\title{ + Uniformity trial of potato in Poland. +} +\description{ + Uniformity trial of potato in Poland. +} +\usage{data("kotowski.potato.uniformity")} +\format{ + A data frame with 152 observations on the following 5 variables. + \describe{ + \item{\code{field}}{field name} + \item{\code{row}}{row ordinate} + \item{\code{col}}{column ordinate} + \item{\code{yield}}{yield per plot, kg} + \item{\code{starch}}{starch content per plot, percent} + } +} +\details{ + + Kotowski (Google translate): I examined the experimental field of the + Vegetable Cultivation and Breeding Plant in Skierniewice. The material + was provided by "Wohltmany" Lochowa potatoes. They were planted on 5 + May 1922 on two adjacent plots, combined into one complex; the soil + was strong, "even" on the surface, not supplied with manure or mineral + fertilizers for 3 years, the previous crop was two-year clover + ploughed in autumn. The development of potatoes, initially weak, due + to drought, later (from August) much better. They were dug on 12 Oct + in such a way that 48 plots were marked out on one plot (field 1), and + 104 plots on the other (field 2); the plot was 10 m long and 5 rows of + potatoes wide, 50 cm apart, so the plot area should theoretically have + been 25 sq m, but in reality it could have had minor deviations. The + entire number of tufts (tubers?) was weighed from each plot, and then + the starch was determined twice on Reimann's scales immediately after + the digging was finished. + + Field F1 width: 12 plots * 2.5 m = 30 m + + Field F1 length: 4 plots * 10m = 40 m + + Field F2 width: 26 plots * 2.5 m = 67 m + + Field F2 length: 4 plots * 10m = 40 m + + Data typed by K.Wright 2024.12.09. Text translation via Google Translate. +} +\source{ + Kotowski, Feliks. (1924). + A criterion of field homegenity and its value in field + trials. (English title). + Roczniki Nauk Rolniczych, 11, 26-35. + https://www.google.com/books/edition/Roczniki_nauk_rolniczych/mz0iAQAAIAAJ + Polish version on page 26. English abstract on page 35. +} +\references{ + None +} +\examples{ +\dontrun{ + libs(agridat) + data(kotowski.potato.uniformity) + dat <- kotowski.potato.uniformity + libs(desplot) + desplot(dat, yield~col*row|field, subset=field=="F1", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(12*2.5), + main="kotowski.potato.uniformity - yield, field F1") + desplot(dat, yield~col*row|field, subset=field=="F2", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(26*2.5), + main="kotowski.potato.uniformity - yield, field F2") + desplot(dat, starch~col*row|field, subset=field=="F1", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(12*2.5), + main="kotowski.potato.uniformity - starch, field F1") + desplot(dat, starch~col*row|field, subset=field=="F2", + tick=TRUE, flip=TRUE, + aspect=(4*10)/(26*2.5), + main="kotowski.potato.uniformity - starch, field F2") +} +} +\keyword{datasets}