diff --git a/R/PimentelPg91.R b/R/PimentelPg91.R
new file mode 100644
index 0000000000000000000000000000000000000000..49db5e37edcd1ca5c34b85b4a8f4c034b7346661
--- /dev/null
+++ b/R/PimentelPg91.R
@@ -0,0 +1,33 @@
+#' @name PimentelPg91
+#' @title Dados de produção de milho
+#' @description Experimento em blocos casualizados realizado pelo
+#'     Engenheiro Agrônomo Duvilio Ometto, com 2 tratamentos (aradura
+#'     profunda e aradura superficial) e 6 blocos com 2 repetições cada.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{aradura}}{Fator de 2 níveis qualitativos, que são os
+#'     diferentes tipos de aradura.}
+#'
+#' \item{\code{bloco}}{Fator de 6 níveis qualitativos, usado para
+#'     controle local.}
+#'     
+#' \item{\code{prod}}{Produção de milho, em kg por parcela de
+#'     200\eqn{m^{2}}.}
+#'
+#' }
+#' @keywords DBC
+#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+#'     (15th ed.). Piracicaba, SP: FEALQ.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' bwplot(prod ~ aradura,
+#'        groups = bloco,
+#'        data = PimentelPg91,
+#'        xlab = "Aradura",
+#'        ylab = "Produção")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PimentelPg91.txt b/data-raw/PimentelPg91.txt
new file mode 100644
index 0000000000000000000000000000000000000000..eedeceed3d2d23c969d478ae2a8dc60afb880b62
--- /dev/null
+++ b/data-raw/PimentelPg91.txt
@@ -0,0 +1,25 @@
+aradura	bloco	prod
+profunda	i	5.5
+profunda	i	7.0
+profunda	ii	6.8
+profunda	ii	6.2
+profunda	iii	4.6
+profunda	iii	6.0
+profunda	iv	6.4
+profunda	iv	6.8
+profunda	v	7.7
+profunda	v	8.8
+profunda	vi	6.2
+profunda	vi	5.8
+normal	i	6.0
+normal	i	6.8
+normal	ii	5.2
+normal	ii	5.9
+normal	iii	4.4
+normal	iii	4.7
+normal	iv	7.2
+normal	iv	5.6
+normal	v	7.1
+normal	v	6.4
+normal	vi	7.6
+normal	vi	4.5
diff --git a/data/PimentelPg91.rda b/data/PimentelPg91.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7500385731d1815b4764aabb24e74247a2f67794
Binary files /dev/null and b/data/PimentelPg91.rda differ
diff --git a/man/PimentelPg91.Rd b/man/PimentelPg91.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f344f7d9d6d50bb45d257695500ed2262241c583
--- /dev/null
+++ b/man/PimentelPg91.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PimentelPg91.R
+\name{PimentelPg91}
+\alias{PimentelPg91}
+\title{Dados de produção de milho}
+\format{Um \code{data.frame} com 24 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{aradura}}{Fator de 2 níveis qualitativos, que são os
+    diferentes tipos de aradura.}
+
+\item{\code{bloco}}{Fator de 6 níveis qualitativos, usado para
+    controle local.}
+    
+\item{\code{prod}}{Produção de milho, em kg por parcela de
+    200\eqn{m^{2}}.}
+
+}}
+\source{
+Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+    (15th ed.). Piracicaba, SP: FEALQ.
+}
+\description{
+Experimento em blocos casualizados realizado pelo
+    Engenheiro Agrônomo Duvilio Ometto, com 2 tratamentos (aradura
+    profunda e aradura superficial) e 6 blocos com 2 repetições cada.
+}
+\examples{
+
+library(lattice)
+
+bwplot(prod ~ aradura,
+       groups = bloco,
+       data = PimentelPg91,
+       xlab = "Aradura",
+       ylab = "Produção")
+
+}
+\keyword{DBC}
+