From 0f13ec0c283dc94832dc91deab9093a6a4d7be80 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Sat, 5 Mar 2016 14:58:23 -0300
Subject: [PATCH] Adiciona o 3 arquivos da tabela 12.2 do Zimmermann

---
 R/ZimmermannTab12.2.R          |  37 ++++++++++++++++++++++++++++
 data-raw/ZimmermannTab12.2.txt |  43 +++++++++++++++++++++++++++++++++
 data/ZimmermannTab12.2.rda     | Bin 0 -> 432 bytes
 3 files changed, 80 insertions(+)
 create mode 100644 R/ZimmermannTab12.2.R
 create mode 100644 data-raw/ZimmermannTab12.2.txt
 create mode 100644 data/ZimmermannTab12.2.rda

diff --git a/R/ZimmermannTab12.2.R b/R/ZimmermannTab12.2.R
new file mode 100644
index 00000000..0e5537e5
--- /dev/null
+++ b/R/ZimmermannTab12.2.R
@@ -0,0 +1,37 @@
+#' @name ZimmermannTab12.2
+#' @title Estudo sobre produtividade de grãos de arroz irrigado 
+#' @description Dados do Ensaio 2 de um experimento em DIC, que estudou a 
+#'              produtividade de grãos de arroz em lavoura conduzida com 
+#'              inundação contínua até a fase de diferenciação do primórdio
+#'              floral e drenada após esta fase. O experimento teve
+#'              seis repetições e sete tratamentos.
+#' @format Um \code{data.frame} com 42 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz
+#'      irrigado.}
+#'
+#' \item{rep}{Número inteiro que identifica as repetições de cada
+#'     tratamento.}
+#'
+#' \item{prod}{Produção de grãos de arroz irrigado}
+#'
+#' }
+#' @keywords DIC arroz 
+#' @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 249)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.2)
+#' 
+#' xyplot(prod ~ trat | rep, data = ZimmermannTab12.2, type=c("p","a"),
+#'           xlab = "Tratamentos",
+#'           ylab = "Produção de grãos de arroz irrigado")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab12.2, 
+#'          FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.2.txt b/data-raw/ZimmermannTab12.2.txt
new file mode 100644
index 00000000..74bf71fc
--- /dev/null
+++ b/data-raw/ZimmermannTab12.2.txt
@@ -0,0 +1,43 @@
+"trat" "rep" "prod"
+"CNA 7830" 1 7660
+"CNA 8502" 1 7084
+"CNA 8540" 1 5988
+"Epagri 108" 1 6520
+"Formoso" 1 7233
+"Metica 1" 1 6832
+"Supremo 1" 1 5920
+"CNA 7830" 2 6205
+"CNA 8502" 2 7334
+"CNA 8540" 2 6616
+"Epagri 108" 2 6162
+"Formoso" 2 6922
+"Metica 1" 2 7268
+"Supremo 1" 2 6132
+"CNA 7830" 3 6173
+"CNA 8502" 3 7227
+"CNA 8540" 3 6357
+"Epagri 108" 3 6535
+"Formoso" 3 6886
+"Metica 1" 3 7177
+"Supremo 1" 3 6868
+"CNA 7830" 4 7395
+"CNA 8502" 4 8120
+"CNA 8540" 4 5138
+"Epagri 108" 4 7697
+"Formoso" 4 6482
+"Metica 1" 4 5971
+"Supremo 1" 4 6422
+"CNA 7830" 5 6504
+"CNA 8502" 5 7857
+"CNA 8540" 5 5581
+"Epagri 108" 5 6617
+"Formoso" 5 6563
+"Metica 1" 5 7475
+"Supremo 1" 5 6039
+"CNA 7830" 6 6770
+"CNA 8502" 6 6592
+"CNA 8540" 6 4953
+"Epagri 108" 6 6838
+"Formoso" 6 8033
+"Metica 1" 6 6830
+"Supremo 1" 6 5724
diff --git a/data/ZimmermannTab12.2.rda b/data/ZimmermannTab12.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..606ddf5d359c507b86620305e55f0e3bd89113ae
GIT binary patch
literal 432
zcmb2|=3oE==Cf0*y$=V79Pjtd&UN_Mx`Sh`^^|Q|VlE*yIaVv0yH0QQ-Fm^~p_!eV
zxqXwoLxE6W%@(^=b&Te$b6M5d+0(yndoFL7muB?jS^4?@_2+EO6;Gb|QR6lLdZ&g%
zl!J1q5G(VmOAd}*8ryWA`Cgu|OhfGXks>2ef5A-IQvoxhHYcr_7Zbf;-AbcH6Qp{x
zTK-RezH{TTrj2<bURl?o$|G~7X3O>REvXi^e_T?p^tAVPO#J)}N4w6rPwq6C@?nXp
z@9LDDtif%Q&v#@96{eJ(oz|AAd2sjqfMp6^@5=U>&lHwCJ}K+lLO1WXh5Y*i|NhW+
zKcPOmX46%5>)K7X<vGunF8Oup*HgRAb5iH!8?ASnDc=5J@tIQse{7%FJLMm*vZ`4V
zUe|t~xmMsK^Q-L_pR?Ane6)R({>-<vvdQjx?uz-2^COSMKG6EqH)DDEh4}|!)3%C#
zwSJ-f@V-&M_=5R~@=PBYKj(D*_^|JuYogS<*J~Yltb#0NWMA44dvjXYxA0n*DCxrT
p-dpwR8;-^%%~?@9>HFo2n-2+ooD-sYWd8Z%;*PHBBJWrj7yyzv&wKy?

literal 0
HcmV?d00001

-- 
GitLab