diff --git a/R/ZimmermannTab12.13.R b/R/ZimmermannTab12.13.R
new file mode 100644
index 0000000000000000000000000000000000000000..dffb7545de59526a1ad409f9a2219c5f032ed215
--- /dev/null
+++ b/R/ZimmermannTab12.13.R
@@ -0,0 +1,37 @@
+#' @name ZimmermannTab12.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 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 arcoseno da raiz quadrada da proporção. 
+#' @format Um \code{data.frame} com 35 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Proporção de insetos infectados.}
+#'
+#' }
+#' @keywords DBC insetos percevejos arroz 
+#' @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)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.13)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.13, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Proporção de insetos infectados")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.13, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/R/ZimmermannTab12.14.R b/R/ZimmermannTab12.14.R
new file mode 100644
index 0000000000000000000000000000000000000000..592f084c4a12cc69224e7934fc4298ff1708b2b2
--- /dev/null
+++ b/R/ZimmermannTab12.14.R
@@ -0,0 +1,37 @@
+#' @name ZimmermannTab12.14
+#' @title Dados da proporção de insetos infectados
+#' @description Dados do ensaio 2 de um experimento em DBC que estudou a 
+#'              patogenicidade de fungos as 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 arcoseno da raiz quadrada da proporção. 
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Proporção de insetos infectados.}
+#'
+#' }
+#' @keywords DBC insetos percevejos arroz 
+#' @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)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.14)
+#' 
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.14, 
+#'        type=c("p","a"),
+#'        xlab = "Tratamentos",
+#'        ylab = "Proporção de insetos infectados")
+#' 
+#' aggregate(prod ~ trat, data = ZimmermannTab12.14, 
+#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.13.txt b/data-raw/ZimmermannTab12.13.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c450b409eb4bb4494e209d4099bbe1d8a58347c7
--- /dev/null
+++ b/data-raw/ZimmermannTab12.13.txt
@@ -0,0 +1,36 @@
+"trat" "bloco" "prod"
+1 1 0
+2 1 1.0799
+3 1 0.4909
+4 1 0.6847
+5 1 0.6155
+6 1 0.7854
+7 1 1.0799
+1 2 0
+2 2 1.0799
+3 2 0.4909
+4 2 0.6847
+5 2 0.6155
+6 2 0.7854
+7 2 1.0799
+1 3 0
+2 3 0.7854
+3 3 0.7297
+4 3 0.4909
+5 3 0.5495
+6 3 0.6847
+7 3 0.8691
+1 4 0
+2 4 0.3063
+3 4 0.4637
+4 4 0.5236
+5 4 1.1072
+6 4 0.9553
+7 4 0.8411
+1 5 0
+2 5 0.9553
+3 5 0.3614
+4 5 0.6155
+5 5 0.7137
+6 5 0.3876
+7 5 0.5796
diff --git a/data-raw/ZimmermannTab12.14.txt b/data-raw/ZimmermannTab12.14.txt
new file mode 100644
index 0000000000000000000000000000000000000000..67a7b6dece018b66343f846720f36dcad9b24a4a
--- /dev/null
+++ b/data-raw/ZimmermannTab12.14.txt
@@ -0,0 +1,31 @@
+"trat" "bloco" "prod"
+1 1 0
+9 1 0.8411
+10 1 0.4909
+11 1 0.6155
+12 1 0.5796
+13 1 0.7297
+1 2 0
+9 2 0.9117
+10 2 0.7297
+11 2 0.5796
+12 2 1.1072
+13 2 0.6155
+1 3 0.3218
+9 3 0.5796
+10 3 0.5236
+11 3 0.7854
+12 3 0.7854
+13 3 0.9553
+1 4 0
+9 4 1.5708
+10 4 0.5236
+11 4 0.9117
+12 4 0.5236
+13 4 0.7297
+1 5 0
+9 5 0.8571
+10 5 0.5236
+11 5 0.8571
+12 5 0.4909
+13 5 0.9117
diff --git a/data/ZimmermannTab12.13.rda b/data/ZimmermannTab12.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..74d80087c96c795724b19aeded4f7e5000dedd01
Binary files /dev/null and b/data/ZimmermannTab12.13.rda differ
diff --git a/data/ZimmermannTab12.14.rda b/data/ZimmermannTab12.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..62b0d6eee356ab55dfddbbb8a5b4117311b40475
Binary files /dev/null and b/data/ZimmermannTab12.14.rda differ