diff --git a/R/PimentelEx5.8.4.R b/R/PimentelEx5.8.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..cf56d42478143f528f7fa9bdb4fa425f4569d339
--- /dev/null
+++ b/R/PimentelEx5.8.4.R
@@ -0,0 +1,33 @@
+#' @name PimentelEx5.8.4
+#' @title Dados de produção de cana-planta
+#' @description Experimento em blocos casualizados realizado pela
+#'     Cooperativa dos Usineiros do Oeste do Estado de São Paulo,
+#'     referentes à produção de cana-planta de um ensaio de variedades
+#'     de cana.
+#' @format Um \code{data.frame} com 28 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{bloco}}{Fator de 4 níveis qualitativos, usado para
+#'     controle local.}
+#'
+#' \item{\code{variedade}}{Fator de 7 níveis qualitativos, que são os
+#'     diferentes tipos de cana.}
+#'     
+#' \item{\code{prod}}{Dados de produção de cana-planta.}
+#'
+#' }
+#' @keywords DBC
+#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+#'     (15th ed.). Piracicaba, SP: FEALQ.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' xyplot(prod ~ variedade,
+#'        groups = bloco,
+#'        data = PimentelEx5.8.4,
+#'        xlab = "Variedade",
+#'        ylab = "Produção")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PimentelEx5.8.4.txt b/data-raw/PimentelEx5.8.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f76e44f1230ffafadcc4c60139d7459b017cd7ca
--- /dev/null
+++ b/data-raw/PimentelEx5.8.4.txt
@@ -0,0 +1,29 @@
+bloco	variedade	prod
+i	Co413	88.7
+i	Co419	123.9
+i	CB41-76	115.4
+i	CB36-24	122.2
+i	CB40-19	137.5
+i	CB41-70	111.7
+i	CB41-60	137.9
+ii	Co413	109.7
+ii	Co419	151.7
+ii	CB41-76	116.4
+ii	CB36-24	141.6
+ii	CB40-19	126.7
+ii	CB41-70	159.0
+ii	CB41-60	148.2
+iii	Co413	90.7
+iii	Co419	131.9
+iii	CB41-76	152.7
+iii	CB36-24	165.7
+iii	CB40-19	162.0
+iii	CB41-70	120.0
+iii	CB41-60	150.0
+iv	Co413	99.7
+iv	Co419	114.5
+iv	CB41-76	142.5
+iv	CB36-24	162.7
+iv	CB40-19	114.5
+iv	CB41-70	107.5
+iv	CB41-60	122.5
diff --git a/data/PimentelEx5.8.4.rda b/data/PimentelEx5.8.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5a132600e85f239ad2a0bb2c569ad57c084c047c
Binary files /dev/null and b/data/PimentelEx5.8.4.rda differ
diff --git a/man/PimentelEx5.8.4.Rd b/man/PimentelEx5.8.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..1a3a3e87577e567151637170e7dee83eb2a61843
--- /dev/null
+++ b/man/PimentelEx5.8.4.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PimentelEx5.8.4.R
+\name{PimentelEx5.8.4}
+\alias{PimentelEx5.8.4}
+\title{Dados de produção de cana-planta}
+\format{Um \code{data.frame} com 28 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{bloco}}{Fator de 4 níveis qualitativos, usado para
+    controle local.}
+
+\item{\code{variedade}}{Fator de 7 níveis qualitativos, que são os
+    diferentes tipos de cana.}
+    
+\item{\code{prod}}{Dados de produção de cana-planta.}
+
+}}
+\source{
+Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+    (15th ed.). Piracicaba, SP: FEALQ.
+}
+\description{
+Experimento em blocos casualizados realizado pela
+    Cooperativa dos Usineiros do Oeste do Estado de São Paulo,
+    referentes à produção de cana-planta de um ensaio de variedades
+    de cana.
+}
+\examples{
+
+library(lattice)
+
+xyplot(prod ~ variedade,
+       groups = bloco,
+       data = PimentelEx5.8.4,
+       xlab = "Variedade",
+       ylab = "Produção")
+
+}
+\keyword{DBC}
+