Renomeia prod -> aacpd, trat -> cult.

R/ZimmermannTb12.7.R

 #' @name ZimmermannTb12.7
-#' @title Dados de área sob a curva do progresso de brusone
-#' @description Dados do ensaio 1 de um experimento que avaliou 
-#'     as cultivares para a área 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.
+#' @title Área Sob a Curva do Progresso de Brusone
+#' @description Dados do ensaio 1 de um experimento que avaliou as
+#'     cultivares para a área 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{
 #'
-#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar da
-#'     planta.}
+#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.}
 #'
 #' \item{\code{bloco}}{Número inteiro que identifica o bloco da
 #'     observação.}
 #'
-#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de progresso
-#'     da doença. A unidade de medida não é conhecida.}
+#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de
+#'     progresso da doença. A unidade de medida não é conhecida.}
 #'
 #' }
 #' @keywords DBC
@@ -34,12 +32,12 @@
 #'
 #' str(ZimmermannTb12.7)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.7,
+#' xyplot(aacpd ~ cult , groups = bloco, data = ZimmermannTb12.7,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
 #'        ylab = "Logaritmo da área sob a curva de progresso da doença")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.7,
+#' aggregate(aacpd ~ cult, data = ZimmermannTb12.7,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
 NULL

R/ZimmermannTb12.8.R

 #' @name ZimmermannTb12.8
-#' @title Dados de área sob a curva do progresso de uma doença
-#' @description Dados do ensaio 2 de um experimento 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 duzentas
-#'     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. 
+#' @title Área Sob a Curva do Progresso de uma doença
+#' @description Dados do ensaio 1 de um experimento que avaliou as
+#'     cultivares para a área 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 duzentas 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{
 #'
-#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar da
-#'     planta.}
+#' \item{\code{cult}}{Fator de níveis nominais. Indica a cultivar.}
 #'
-#' \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{aacpd}}{Logaritmo natural da área sob a curva de progresso
-#'     da doença. A unidade de medida não é conhecida.}
+#' \item{\code{aacpd}}{Logaritmo natural da área sob a curva de
+#'     progresso da doença. A unidade de medida não é conhecida.}
 #'
 #' }
 #' @keywords DBC
@@ -31,11 +30,14 @@
 #'
 #' data(ZimmermannTb12.8)
 #'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.8,
-#'        type = c("p","a"),
+#' str(ZimmermannTb12.8)
+#'
+#' xyplot(aacpd ~ cult, groups = bloco, data = ZimmermannTb12.8,
+#'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
 #'        ylab = "Área sob a curva do progresso da doença")
 #'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.8,
+#' aggregate(aacpd ~ cult, data = ZimmermannTb12.8,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL

data-raw/ZimmermannTab12.7.txt

-"cult" "bloco" "aacpd"
-"Caiapó" 1 5.74616
-"Canastra" 1 6.29754
-"Confiança" 1 6.35712
-"Maravilha" 1 4.92718
-"Primavera" 1 6.26963
-"R. Paranaíba" 1 6.38072
-"Caiapó" 2 6.05715
-"Canastra" 2 6.03998
-"Confiança" 2 5.83999
-"Maravilha" 2 6.03634
-"Primavera" 2 5.91024
-"R. Paranaíba" 2 6.12295
-"Caiapó" 3 6.49288
-"Canastra" 3 6.13508
-"Confiança" 3 5.75745
-"Maravilha" 3 5.44038
-"Primavera" 3 6.47247
-"R. Paranaíba" 3 6.75723

data-raw/ZimmermannTab12.8.txt

-"cult" "bloco" "aacpd"
-"Caiapó" 1 4.82607
-"Canastra" 1 4.99789
-"Confiança" 1 5.67312
-"Maravilha" 1 4.37519
-"Primavera" 1 6.08142
-"R. Paranaíba" 1 5.94118
-"Caiapó" 2 5.4038
-"Canastra" 2 5.23228
-"Confiança" 2 5.30094
-"Maravilha" 2 5.0411
-"Primavera" 2 5.96179
-"R. Paranaíba" 2 5.86669
-"Caiapó" 3 4.92129
-"Canastra" 3 4.62698
-"Confiança" 3 5.51192
-"Maravilha" 3 4.0582
-"Primavera" 3 4.87302
-"R. Paranaíba" 3 5.08187

data-raw/ZimmermannTb12.7.txt

-trat	bloco	prod
+cult	bloco	aacpd
 Caiapó	1	5.74616
 Canastra	1	6.29754
 Confiança	1	6.35712

data-raw/ZimmermannTb12.8.txt

-trat	bloco	prod
+cult	bloco	aacpd
 Caiapó	1	4.82607
 Canastra	1	4.99789
 Confiança	1	5.67312