Corrige documentação e transforma variáveis.

R/ZimmermannTb12.13.R

 #' @name ZimmermannTb12.13
 #' @title Dados da proporção de insetos infectados
 #' @description Dados do ensaio 1 de um experimento em DBC que estudou a
-#'     patogenicidade de fungos as percevejo do grão de arroz. A
+#'     patogenicidade de fungos ao percevejo do grão de arroz. A
 #'     testemunha sem infecção (1) era o tratamento comum entre os dois
 #'     experimentos. Os dados se referem à proporção de percevejos
 #'     infectados e transformados por arco seno da raiz quadrada da
 #'     proporção.
 #' @format Um \code{data.frame} com 35 observações e 3 variáveis
 #'
+#'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     arroz.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#'     (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#'     infectados.}
 #'
 #' }
 #' @keywords DBC proporção
 #' @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 255)
+#'     Feijão. (Tab 12.13, pág 255)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.13)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.13,
-#'        type=c("p","a"),
+#' str(ZimmermannTb12.13)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.13,
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Proporção de insetos infectados")
+#'        ylab = "Arco seno da raíz da proporção de insetos infectados")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.13,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.13,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb12.14.R

@@ -6,15 +6,18 @@
 #'     experimentos. Os dados se referem à proporção de percevejos
 #'     infectados e transformados por arco seno da raiz quadrada da
 #'     proporção.
-#' @format Um \code{data.frame} com 30 observações e 3 variáveis
-#'
+#' @format Um \code{data.frame} com 35 observações e 3 variáveis
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     arroz.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#'     (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#'     infectados.}
 #'
 #' }
 #' @keywords DBC proporção
@@ -27,11 +30,14 @@
 #'
 #' data(ZimmermannTb12.14)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.14,
-#'        type = c("p", "a"),
+#' str(ZimmermannTb12.14)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.14,
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Proporção de insetos infectados")
+#'        ylab = "Arco seno da raíz da proporção de insetos infectados")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.14,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.14,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb12.19.R

 #' @name ZimmermannTb12.19
-#' @title Dados de produtividade de grãos de feijão
+#' @title Produtividade de feijão em ensaio de competição de cultivares
 #' @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
@@ -10,28 +10,34 @@
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     plantas.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Produtividade de grãos.}
+#' \item{\code{prod}}{Produtividade de grãos (kg ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords DBC
 #' @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)
+#'     Feijão. (Tabela 12.19, pág 258)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.19)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.19,
-#'        type = c("p", "a"),
+#' str(ZimmermannTb12.19)
+#'
+#' xyplot(prod ~ trat, data = ZimmermannTb12.19,
+#'        groups = bloco, type = "b",
 #'        xlab = "Tratamentos",
-#'        ylab = "Produtividade de grãos")
+#'        ylab = "Produtividade de grãos",
+#'        scales = list(x = list(rot = 90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.19,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb12.7.R

 #' @name ZimmermannTb12.7
-#' @title Dados de área sob a curva do progresso de uma doença
+#' @title Dados de área sob a curva do progresso de brusone
 #' @description Dados de um ensaio que avaliou as cultivares para a área
-#'     foliar atacada por brusone (Pyricularia Orizae L.) em diferentes
-#'     datas e se calculou área sob a curva do progresso da doença. Este
-#'     primeiro experimento foi semeado na densidade de oitenta sementes
-#'     por metro. Os dados foram transformados por logaritmo natural,
-#'     procurando-se uma maior homogeneização das variâncias.
-#'      A unidade de medida não é conhecida. 
+#'     foliar atacada por brusone (\emph{Pyricularia Orizae} L.) em
+#'     diferentes datas e se calculou área sob a curva do progresso da
+#'     doença. Este primeiro experimento foi semeado na densidade de
+#'     oitenta sementes por metro. Os dados foram transformados por
+#'     logaritmo natural, procurando-se uma maior homogeneização das
+#'     variâncias.
 #' @format Um \code{data.frame} com 18 observações e 3 variáveis
 #'
 #' \describe{
@@ -14,26 +14,31 @@
 #' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
 #'     plantas.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Área sob a curva do progresso de uma doença.}
+#' \item{\code{prod}}{Logaritmo natural da área sob a curva de progresso
+#'     da doença. A unidade de medida não é conhecida.}
 #'
 #' }
 #' @keywords DBC
 #' @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 251)
+#'     Feijão. (Tabela 12.7, pág 251)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.7)
 #'
+#' str(ZimmermannTb12.7)
+#'
 #' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.7,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
-#'        ylab = "Área sob a curva do progresso da doença")
+#'        ylab = "Logaritmo da área sob a curva de progresso da doença")
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.7,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb4.11.R

@@ -7,36 +7,38 @@
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
-#'     plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado nas
+#'     parcelas.}
 #'
-#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual amostra
-#'                pertence a observação.}
+#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual
+#'     amostra pertence a observação.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Altura média de perfilhos.}
+#' \item{\code{prod}}{Altura média de perfilhos (cm).}
 #'
 #' }
 #' @keywords DBC
 #' @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 79)
+#'     Feijão. (Tabela 4.11, pág 79)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb4.11)
 #'
-#' levelplot(prod ~ amostra + bloco,
-#'           data = ZimmermannTb4.11, aspect = "iso")
+#' str(ZimmermannTb4.11)
 #'
-#' xyplot(prod ~ trat | amostra, groups = bloco,
+#' xyplot(prod ~ trat, groups = bloco,
 #'        data = ZimmermannTb4.11,
-#'        type = c("p", "a"),
+#'        type = c("p", "a"), jitter.x = TRUE,
 #'        xlab = "Tratamentos",
-#'        ylab = "Altura média de perfilhos")
+#'        ylab = "Altura média de perfilhos (cm)",
+#'        scales=list(x=list(rot=90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb4.11,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

R/ZimmermannTb4.4.R

 #' @name ZimmermannTb4.4
-#' @title Estudo sobre produtividade de grãos de feijão
+#' @title Competição de cultivares de feijão
 #' @description Dados de um ensaio de competição de cultivares, em
 #'     blocos completos ao acaso, da produção de grãos de feijão em
 #'     kg/ha. O experimento teve quinze tratamentos (cultivares e/ou
@@ -8,28 +8,35 @@
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em feijão.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'     feijão.}
 #'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#'     observação.}
 #'
-#' \item{\code{prod}}{Produção de grãos de feijão.}
+#' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
 #'
 #' }
 #' @keywords DBC
 #' @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 72)
+#'     Feijão. (Tabela 4.4, pág 72)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb4.4)
 #'
+#' str(ZimmermannTb4.4)
+#'
 #' xyplot(prod ~ trat, data = ZimmermannTb4.4,
-#'        type = "o", jitter.x = TRUE, groups = bloco,
-#'        xlab = "Tratamento", ylab = "Produção de feijão",
-#'        main = "Experimento de competição de cultivares")
+#'        groups = bloco, type = "o", jitter.x = TRUE,
+#'        xlab = "Cultivares",
+#'        ylab = expression("Produção de feijão"~(kg~ha^{-1})),
+#'        main = "Experimento de competição de cultivares",
+#'        scales = list(x = list(rot = 90)))
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb4.4,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL