Corrige documentação e passa trat para fator.

R/ZimmermannTb12.1.R

@@ -3,18 +3,19 @@
 #' @description Dados do Ensaio 1 de um experimento em DIC, que estudou
 #'     a produtividade de grãos de arroz em lavoura conduzida com
 #'     inundação contínua durante todo o ciclo. O experimento teve seis
-#'     repetições e sete tratamentos. A unidade de medida não é conhecida. 
+#'     repetições e sete tratamentos.
 #' @format Um \code{data.frame} com 42 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz
-#'      irrigado.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'      arroz irrigado.}
 #'
-#' \item{\code{rept}}{Número inteiro que identifica as repetições de cada
-#'     tratamento.}
+#' \item{\code{rept}}{Número inteiro que identifica as repetições de
+#'     cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado}
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado. A unidade de
+#'     medida não é conhecida.}
 #'
 #' }
 #' @keywords DIC
@@ -27,6 +28,7 @@
 #'
 #' data(ZimmermannTb12.1)
 #'
+#' str(ZimmermannTb12.1)
 #'
 #' xyplot(prod ~ trat, data = ZimmermannTb12.1,
 #'        type = c("p", "a"),
@@ -35,4 +37,5 @@
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.1,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb12.2.R

@@ -4,8 +4,7 @@
 #'     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. A unidade de medida não é
-#'     conhecida. 
+#'     repetições e sete tratamentos.
 #' @format Um \code{data.frame} com 42 observações e 3 variáveis
 #'
 #' \describe{
@@ -16,20 +15,23 @@
 #' \item{rept}{Número inteiro que identifica as repetições de cada
 #'     tratamento.}
 #'
-#' \item{prod}{Produção de grãos de arroz irrigado.}
+#' \item{prod}{Produção de grãos de arroz irrigado.  A unidade de medida
+#'     não é conhecida.}
 #'
 #' }
 #' @keywords DIC
 #' @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)
+#'     Feijão. (Tabela 12.2, pág 249)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.2)
 #'
-#' xyplot(prod ~ trat | rept, data = ZimmermannTb12.2,
+#' str(ZimmermannTb12.2)
+#'
+#' xyplot(prod ~ trat, data = ZimmermannTb12.2,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
 #'        ylab = "Produção de grãos de arroz irrigado")

R/ZimmermannTb3.12.R

 #' @name ZimmermannTb3.12
 #' @title Dados de matéria seca em plantas
-#' @description Experimento em DIC, que estudou a produção de matéria
+#' @description Experimento em DIC que estudou a produção de matéria
 #'     seca em plantas, em gramas. No experimento foram utilizados cinco
-#'     vasos, quatro tratamentos e três plantas (parcelas) para cada
-#'     vaso e tratamento.
+#'     vasos para cada um de quatro tratamentos e três plantas para cada
+#'     vaso (parcela).
 #' @format Um \code{data.frame} com 75 observações e 4 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis numéricos. Tratamento aplicado em
-#'     plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais representados por
+#'     inteiros. Tratamento aplicado aos vasos.}
 #'
-#' \item{\code{planta}}{Fator de níveis numéricos.}
+#' \item{\code{planta}}{Fator de níveis numéricos que identifica as
+#'     plantas dentro dos vasos.}
 #'
-#' \item{\code{vaso}}{Fator de níveis numéricos.}
+#' \item{\code{vaso}}{Fator de níveis numéricos que identifica os vasos
+#'     de cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de matéria seca em plantas, em gramas.}
+#' \item{\code{prod}}{Produção de matéria seca das plantas, em gramas.}
 #'
 #' }
 #' @keywords DIC
 #' @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 62)
+#'     Feijão. (Table 3.12, pág 62)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb3.12)
 #'
+#' str(ZimmermannTb3.12)
+#' xtabs(~trat + vaso, data = ZimmermannTb3.12)
+#'
 #' aggregate(prod ~ trat, data = ZimmermannTb3.12,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
-#' xyplot(prod ~ trat | vaso, groups = planta, data = ZimmermannTb3.12,
-#'        type = c("p","a"),
-#'        xlab = "Tratamentos por Vasos",
-#'        ylab = "Produção de matéria seca em plantas (g)")
+#' xyplot(prod ~ trat, groups = vaso, data = ZimmermannTb3.12,
+#'        type = c("p", "a"), jitter.x = TRUE,
+#'        xlab = "Tratamentos",
+#'        ylab = "Produção de matéria seca das plantas (g)")
 #'
 NULL

R/ZimmermannTb3.2.1.R

 #' @name ZimmermannTb3.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
+#' @title Estudo sobre adubação nitrogenada na cultura do arroz
+#' @description Dados de um experimento em DIC que visa estudar a
+#'     adubação nitrogenada no 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\eqn{^{-1}}.
 #' @format Um \code{data.frame} com 24 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis numéricos. Tratamento aplicado em arroz
-#'      irrigado.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado ao
+#'      arroz irrigado.}
 #'
-#' \item{\code{rept}}{Número inteiro que identifica as repetições de cada
-#'     tratamento.}
+#' \item{\code{rept}}{Número inteiro que identifica as repetições de
+#'     cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado em kg ha\eqn{^{-1}}.}
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado em kg
+#'     ha\eqn{^{-1}}.}
 #'
 #' }
 #' @keywords DIC
@@ -27,11 +28,15 @@
 #'
 #' data(ZimmermannTb3.2.1)
 #'
+#' str(ZimmermannTb3.2.1)
+#' unstack(x = ZimmermannTb3.2.1, form = prod ~ trat)
+#'
 #' aggregate(prod ~ trat, data = ZimmermannTb3.2.1,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
 #'  xyplot(prod ~ trat, data = ZimmermannTb3.2.1,
-#'         type = c("p", "a"),
+#'         type = c("p", "a"), jitter.x = TRUE,
 #'         xlab = "Tratamentos",
 #'         ylab = expression(Produção~de~grãos~(kg~ha^{-1})))
+#'
 NULL