diff --git a/data-raw/ZimmermannTb16.3.R b/data-raw/ZimmermannTb16.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..8bef8fb19955c062b01e5d83a57e3160c43937f1
--- /dev/null
+++ b/data-raw/ZimmermannTb16.3.R
@@ -0,0 +1,35 @@
+#' @name ZimmermannTb16.3
+#' @title Teor de Materia Orgânica em Solos Aluviais
+#' @description Dados de um estudo sobre teoress de matéria orgânica em solos
+#'     aluviais e gley húmicos. Os tipos de solo são: A = solos aluviais e B =
+#'     solos gley húmicos. 
+#'     
+#' @format Um \code{data.frame} com 14 observações e 2 variáveis
+#'
+#' \describe{
+#' 
+#' \item{\code{MO}}{Médias nos ensaios irrigados.}
+#' 
+#' \item{\code{tipo}}{Fator de niveis nominais. Indica o tipo do solo da 
+#'     observaçao. }
+#'
+#' }
+#' @keywords DIC
+#' @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. (Tabela 16.3, pág 337)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTb16.3)
+#'
+#' str(ZimmermannTb16.3)
+#'
+#' xyplot(MO ~ tipo, data = ZimmermannTb16.3,
+#'        type = "o", jitter.x = TRUE,
+#'        xlab = "Tipo de Solo",
+#'        ylab = "Matéria Orgânica",
+#'        main = "Teor de Materia Orgânica em Solos Aluviais",
+#'        scales = list(x = list(rot = 90)))
+NULL
diff --git a/data-raw/ZimmermannTb16.3.txt b/data-raw/ZimmermannTb16.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b993f334ed9c99460b64fe2abd217bed96dadf9d
--- /dev/null
+++ b/data-raw/ZimmermannTb16.3.txt
@@ -0,0 +1,15 @@
+MO	tipo
+0.6	A
+0.7	B
+0.9	A
+0.9	B
+1.1	A
+1.2	A
+1.3	A
+1.4	A
+1.5	A
+1.5	B
+2.2	B
+3.7	B
+10.5	B
+16.8	B
diff --git a/data/ZimmermannTb16.3.rda b/data/ZimmermannTb16.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f2496e6ba12f61c5908f91a45528d8976913b502
Binary files /dev/null and b/data/ZimmermannTb16.3.rda differ