diff --git a/R/ZimmermannTb12.7.R b/R/ZimmermannTb12.7.R
index f704359ee1de7189f246ee85faaf84dc08e9b741..be80483c5a6bb40f40f79be44b77a0834071825e 100644
--- a/R/ZimmermannTb12.7.R
+++ b/R/ZimmermannTb12.7.R
@@ -1,25 +1,23 @@
 #' @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
diff --git a/R/ZimmermannTb12.8.R b/R/ZimmermannTb12.8.R
index f85d9ee32b126459c6e75ccce4792273cfc91f47..fee9b0842c961d25463011179225da153f7ade24 100644
--- a/R/ZimmermannTb12.8.R
+++ b/R/ZimmermannTb12.8.R
@@ -1,24 +1,23 @@
 #' @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
diff --git a/data-raw/ZimmermannTab12.7.txt b/data-raw/ZimmermannTab12.7.txt
deleted file mode 100644
index 5d11090560af9e3a967c742c8974cc8cfd32720f..0000000000000000000000000000000000000000
--- a/data-raw/ZimmermannTab12.7.txt
+++ /dev/null
@@ -1,19 +0,0 @@
-"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
diff --git a/data-raw/ZimmermannTab12.8.txt b/data-raw/ZimmermannTab12.8.txt
deleted file mode 100644
index 014b1b250301c8ee255a6ae5813387a3b479cf14..0000000000000000000000000000000000000000
--- a/data-raw/ZimmermannTab12.8.txt
+++ /dev/null
@@ -1,19 +0,0 @@
-"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
diff --git a/data-raw/ZimmermannTb12.7.txt b/data-raw/ZimmermannTb12.7.txt
index c421aec715af18c76ff0429427f52045dd149122..fc3b4dedeb16dbbc4186232fc036d63831b5ced3 100644
--- a/data-raw/ZimmermannTb12.7.txt
+++ b/data-raw/ZimmermannTb12.7.txt
@@ -1,4 +1,4 @@
-trat	bloco	prod
+cult	bloco	aacpd
 Caiapó	1	5.74616
 Canastra	1	6.29754
 Confiança	1	6.35712
diff --git a/data-raw/ZimmermannTb12.8.txt b/data-raw/ZimmermannTb12.8.txt
index a94ad46dc2237cfb23c1318271107c42d2d5625d..63e3a9c6ee3520009b04229eb47a2d4505e3230d 100644
--- a/data-raw/ZimmermannTb12.8.txt
+++ b/data-raw/ZimmermannTb12.8.txt
@@ -1,4 +1,4 @@
-trat	bloco	prod
+cult	bloco	aacpd
 Caiapó	1	4.82607
 Canastra	1	4.99789
 Confiança	1	5.67312
diff --git a/data/ZimmermannTab12.7.rda b/data/ZimmermannTab12.7.rda
deleted file mode 100644
index 0d2d88316a3f0e03aa97620259a1b5f1c8eb7c26..0000000000000000000000000000000000000000
Binary files a/data/ZimmermannTab12.7.rda and /dev/null differ
diff --git a/data/ZimmermannTab12.8.rda b/data/ZimmermannTab12.8.rda
deleted file mode 100644
index c5b34dc28a43a5cfc2bc015cb1f095647828a622..0000000000000000000000000000000000000000
Binary files a/data/ZimmermannTab12.8.rda and /dev/null differ
diff --git a/data/ZimmermannTb12.7.rda b/data/ZimmermannTb12.7.rda
index 53b05459797365c2c59b14c2fb4b3b2b73a064cc..20bc79542df5560fabf6022a7bcaeab8eee38d45 100644
Binary files a/data/ZimmermannTb12.7.rda and b/data/ZimmermannTb12.7.rda differ
diff --git a/data/ZimmermannTb12.8.rda b/data/ZimmermannTb12.8.rda
index b321b201bbaa9f43398f439cc70c9793ba79a06b..6010368898b55da9005f7ee5cc5796e05f6436a1 100644
Binary files a/data/ZimmermannTb12.8.rda and b/data/ZimmermannTb12.8.rda differ