diff --git a/R/ZimmermannTab12.7.R b/R/ZimmermannTab12.7.R
new file mode 100644
index 0000000000000000000000000000000000000000..34c1c666cd38460d19b31590bbcf1c117874fdd9
--- /dev/null
+++ b/R/ZimmermannTab12.7.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.7
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa á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.  
+#' @format Um \code{data.frame} com 18 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.7)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.7, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Área sob a curva do progresso da doença")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.7, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/R/ZimmermannTab12.8.R b/R/ZimmermannTab12.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..e0a142185ae9690ac246331713263936847f18e1
--- /dev/null
+++ b/R/ZimmermannTab12.8.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.8
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa á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.  
+#' @format Um \code{data.frame} com 18 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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 252)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.8)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.8, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Área sob a curva do progresso da doença")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.8, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.7.txt b/data-raw/ZimmermannTab12.7.txt
new file mode 100644
index 0000000000000000000000000000000000000000..18bd58119eb365aed1a4524a516f474984d32ae6
--- /dev/null
+++ b/data-raw/ZimmermannTab12.7.txt
@@ -0,0 +1,19 @@
+"trat" "bloco" "prod"
+"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
new file mode 100644
index 0000000000000000000000000000000000000000..4091f5c82b7cc79ae3cf7ab25b8ac668592643bc
--- /dev/null
+++ b/data-raw/ZimmermannTab12.8.txt
@@ -0,0 +1,19 @@
+"trat" "bloco" "prod"
+"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/ZimmermannTab12.7.rda b/data/ZimmermannTab12.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..922dd923e5d25b5f4f617f0b2e1f6553eb493087
Binary files /dev/null and b/data/ZimmermannTab12.7.rda differ
diff --git a/data/ZimmermannTab12.8.rda b/data/ZimmermannTab12.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..96a6a2babadcc71e4d06bfdeac17b97037e5fecf
Binary files /dev/null and b/data/ZimmermannTab12.8.rda differ