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