From eed404128f25251bb40f169f97544b0a02c0d1c2 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Fri, 4 Mar 2016 16:05:20 -0300
Subject: [PATCH] Adiciona o .R da tabela 3.2.1 do Zimmermann

---
 R/ZimmermannTab3.2.1.R | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 R/ZimmermannTab3.2.1.R

diff --git a/R/ZimmermannTab3.2.1.R b/R/ZimmermannTab3.2.1.R
new file mode 100644
index 00000000..f15950d4
--- /dev/null
+++ b/R/ZimmermannTab3.2.1.R
@@ -0,0 +1,36 @@
+#' @name ZimmermannTab3.2.1
+#' @title Estudo sobre adubação nitrogenada na cultura de arroz e feijão
+#' @description Dados de um experimento em DIC, que visa estudar a adubação 
+#'              nitrogenada de arroz irrigado, com 4 tratamentos e 8 
+#'              repetições. A resposta observada foi a produção de grãos de
+#'              arroz irrigado, em kg/ha. 
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis numéricos. 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 em kg/ha}
+#'
+#' }
+#' @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 54)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab3.2.1)
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab3.2.1,
+#'      FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
+#'  xyplot(prod ~ trat | rep, data = ZimmermannTab3.2.1, type=c("p","a"),
+#'       xlab = "Tratamentos",
+#'       ylab = "Produção de grãos de arroz irrigado em kg/ha")
+NULL
\ No newline at end of file
-- 
GitLab