From 6005869d29b25ab4822a659cd5a610da6cbc1bc0 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Mon, 7 Mar 2016 11:02:39 -0300
Subject: [PATCH] Adiciona os 3 arquivos das tabelas 12.19 e 12.20 do
 Zimmermann

---
 R/ZimmermannTab12.19.R          |  38 ++++++++++++++++++++++++++++++++
 R/ZimmermannTab12.20.R          |  38 ++++++++++++++++++++++++++++++++
 data-raw/ZimmermannTab12.19.txt |  37 +++++++++++++++++++++++++++++++
 data-raw/ZimmermannTab12.20.txt |  37 +++++++++++++++++++++++++++++++
 data/ZimmermannTab12.19.rda     | Bin 0 -> 411 bytes
 data/ZimmermannTab12.20.rda     | Bin 0 -> 483 bytes
 6 files changed, 150 insertions(+)
 create mode 100644 R/ZimmermannTab12.19.R
 create mode 100644 R/ZimmermannTab12.20.R
 create mode 100644 data-raw/ZimmermannTab12.19.txt
 create mode 100644 data-raw/ZimmermannTab12.20.txt
 create mode 100644 data/ZimmermannTab12.19.rda
 create mode 100644 data/ZimmermannTab12.20.rda

diff --git a/R/ZimmermannTab12.19.R b/R/ZimmermannTab12.19.R
new file mode 100644
index 0000000..2586feb
--- /dev/null
+++ b/R/ZimmermannTab12.19.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.19
+#' @title Dados de produtividade de grãos de feijão
+#' @description Dados do ensaio 1 de um experimento em DBC de competição
+#'              de cultivares de feijão do grupo preto. Este ensaio foi 
+#'              realizado no município de Senador Canedo (GO). Houveram 
+#'              três cultivares testemunhas e mais seis em cada ensaio.
+#'              Cada experimento foi conduzido no período de inverno, sob
+#'              irrigação por aspersão. Os dados são relativos à 
+#'              produtividade de grãos, em kg/ha. 
+#' @format Um \code{data.frame} com 36 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Produtividade de grãos.}
+#'
+#' }
+#' @keywords DBC feijão plantas grãos produtividade
+#' @source  Zimmermann, F.J.(2004), Estatística aplicada à pesquisa 
+#'          agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa 
+#'          Arroz e Feijão. (pg 258)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.19)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.19, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Produtividade de grãos")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.19, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/R/ZimmermannTab12.20.R b/R/ZimmermannTab12.20.R
new file mode 100644
index 0000000..5c01403
--- /dev/null
+++ b/R/ZimmermannTab12.20.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.20
+#' @title Dados de produtividade de grãos de feijão
+#' @description Dados do ensaio 2 de um experimento em DBC de competição
+#'              de cultivares de feijão do grupo preto. Este ensaio foi 
+#'              realizado no município de Santo Antonio de Goiás (GO). Houveram 
+#'              três cultivares testemunhas e mais seis em cada ensaio.
+#'              Cada experimento foi conduzido no período de inverno, sob
+#'              irrigação por aspersão. Os dados são relativos à 
+#'              produtividade de grãos, em kg/ha. 
+#' @format Um \code{data.frame} com 36 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Produtividade de grãos.}
+#'
+#' }
+#' @keywords DBC feijão plantas grãos produtividade
+#' @source  Zimmermann, F.J.(2004), Estatística aplicada à pesquisa 
+#'          agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa 
+#'          Arroz e Feijão. (pg 258)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.20)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.20, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Produtividade de grãos")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.20, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.19.txt b/data-raw/ZimmermannTab12.19.txt
new file mode 100644
index 0000000..4001792
--- /dev/null
+++ b/data-raw/ZimmermannTab12.19.txt
@@ -0,0 +1,37 @@
+"trat" "bloco" "prod"
+"CNFP 8015" 1 3700
+"CNFP 8016" 1 3600
+"CNFP 8017" 1 3925
+"CNFP 8018" 1 3875
+"CNFP 8019" 1 4200
+"CNFP 8020" 1 4850
+"Diamante Negro" 1 3300
+"FT Nobre" 1 4750
+"G. Brilhante" 1 4025
+"CNFP 8015" 2 3950
+"CNFP 8016" 2 3750
+"CNFP 8017" 2 2800
+"CNFP 8018" 2 3825
+"CNFP 8019" 2 3250
+"CNFP 8020" 2 3200
+"Diamante Negro" 2 2500
+"FT Nobre" 2 4950
+"G. Brilhante" 2 3575
+"CNFP 8015" 3 4050
+"CNFP 8016" 3 3550
+"CNFP 8017" 3 2825
+"CNFP 8018" 3 4000
+"CNFP 8019" 3 3950
+"CNFP 8020" 3 3450
+"Diamante Negro" 3 4025
+"FT Nobre" 3 4700
+"G. Brilhante" 3 3125
+"CNFP 8015" 4 2950
+"CNFP 8016" 4 3000
+"CNFP 8017" 4 3600
+"CNFP 8018" 4 3825
+"CNFP 8019" 4 3375
+"CNFP 8020" 4 4200
+"Diamante Negro" 4 3950
+"FT Nobre" 4 3575
+"G. Brilhante" 4 3825
diff --git a/data-raw/ZimmermannTab12.20.txt b/data-raw/ZimmermannTab12.20.txt
new file mode 100644
index 0000000..f1fc38f
--- /dev/null
+++ b/data-raw/ZimmermannTab12.20.txt
@@ -0,0 +1,37 @@
+"trat" "bloco" "prod"
+"CNFP 8021" 1 4075
+"CNFP 8022" 1 2544.44
+"CNFP 8023" 1 2763.89
+"CNFP 8024" 1 3036.11
+"CNFP 8025" 1 2591.67
+"CNFP 8026" 1 2652.78
+"Diamante Negro" 1 1913.89
+"FT Nobre" 1 3713.89
+"G. Brilhante" 1 2400
+"CNFP 8021" 2 2252.78
+"CNFP 8022" 2 3133.33
+"CNFP 8023" 2 2250
+"CNFP 8024" 2 2369.44
+"CNFP 8025" 2 1466.67
+"CNFP 8026" 2 2927.78
+"Diamante Negro" 2 1850
+"FT Nobre" 2 3158.33
+"G. Brilhante" 2 1827.78
+"CNFP 8021" 3 3388.89
+"CNFP 8022" 3 2866.67
+"CNFP 8023" 3 1941.67
+"CNFP 8024" 3 3033.33
+"CNFP 8025" 3 2813.89
+"CNFP 8026" 3 2838.89
+"Diamante Negro" 3 1988.89
+"FT Nobre" 3 3250
+"G. Brilhante" 3 3316.67
+"CNFP 8021" 4 2663.89
+"CNFP 8022" 4 2533.33
+"CNFP 8023" 4 2791.67
+"CNFP 8024" 4 2922.22
+"CNFP 8025" 4 2750
+"CNFP 8026" 4 2305.56
+"Diamante Negro" 4 2080.56
+"FT Nobre" 4 2877.78
+"G. Brilhante" 4 2669.44
diff --git a/data/ZimmermannTab12.19.rda b/data/ZimmermannTab12.19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8e79ff5e260eb65e4bcd45cc609b75950bf5210c
GIT binary patch
literal 411
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6)E)<s6e#lhW0!k<4m
z2~Fnd{lcRwDKVq9(a2%xnLQ3stZSrFm?C&q^fxw&cHC^3A=_cuFk|w*tbm#W(<Vnv
zn-$EH!r73jxM<F~x;#cMF}Aj4FPPF^Fg<(0B=&-7S_YFFTL7co^fN9A7p5-J`muDG
z_)}+B%R5dYe?Cp_3R+krS8mI?e9@UXJQKW3u5VU*t|E3=hW~p|R8o;=o#2G8{3)Co
zLT~I18W@*uVP>A1!KZbR>B>UM1rMKWc*g2d)63Knx1Gytx8n<5Nr9@%>KuDNu}rzo
zzVN!Z<JJ3(7qV*=zFcAt_@}&LpNIx;>G4N=9D6N!oYvQ|o91&)+0X8zFWl5+z2Mg7
zSKO=q&Q4PJ(xt<(cMiLk_<~>j&*p^|uK3qHle?HbM7HYFY40<>t*Z8ED-^sv1Cuy?
z9E1GojC2w=i-<g3zF_8o$SLvb*o|33;tWh3-UK#kr2ISIFl)!oAR%v|ua~+Sq9hbJ
Q|Hw0FPCqn#IST^=05E8(EdT%j

literal 0
HcmV?d00001

diff --git a/data/ZimmermannTab12.20.rda b/data/ZimmermannTab12.20.rda
new file mode 100644
index 0000000000000000000000000000000000000000..08636e500a711761305910147e8255d4beadd3af
GIT binary patch
literal 483
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6)E)<s6e#lhW0!k<4m
z2~Fnd{nEoDAu*%1(a2%xnLQ3stZSrFm?C&q^fxw&cHC^3A=_cuFk|w*tbm#W(<Vnv
zn-$EH!r73jxM<F~x;#cMF*dih7ffz1n2x<*QhUL)>;+R=0HfXXGcE}irY_O?v2>aE
zQ)gGpJ5C~hK27clT391jZp*rS(V00s6TD2WZ&rJ*B6e7Y|9enWQjuq!;DoRIDV!QY
zZ|n^k7?*BgW}ceCr*)C(%0kHn51(xKC*@M}vAO--YnN5B)BNoB`7L?1@bD*DvBve$
zPi3dwXfM7grc)TPX|uiC<JXDpJI^bAiAw9(<;t$`OZ;3*$NCjfAHN3F_Z&W?De%$N
zSD<+LUM9`&1rcTPi}KEKcl_xx75G~G>uDK-Zb?Kar(t=d){%Rai2}8!%^k1k{^gx|
zz4gN9R>fy)eHv$M|D<|l?{mdZ-TsbW=eBp~?+)7V!)p54!<VF1{GOrsO|PKk!s%6t
z&vbXPmYG+5I_-VNw^h|XZH0ojXJ8Vik7JNuosmxBW)YF6%NNW%5IH4&9lJ4WNSuMG
p!y;$aMH7D7GiN<|=H;p5dBt0sDJ!u-<wHHglAo)NE@xq2000ac*xCR9

literal 0
HcmV?d00001

-- 
GitLab