diff --git a/R/PimentelTb21.5.1.R b/R/PimentelTb21.5.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..47eb706d16200f3bea65ba6a315badc85b8db909
--- /dev/null
+++ b/R/PimentelTb21.5.1.R
@@ -0,0 +1,33 @@
+#' @name PimentelTb21.5.1
+#' @title Porcentagem de Plantas Doentes
+#' @description Ensaio inteiramente casualizado relativo à porcentagem
+#'     de plantas doentes em um experimento de tomateiros, em que foi
+#'     aplicado o teste de Kruskal-Wallis.
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{trat}}{Fator de 3 níveis qualitativos, que são os
+#'     tratamentos.}
+#'
+#' \item{\code{doentes}}{Porcentagem de plantas doentes em um ensaio de
+#'     tomateiros.}
+#'
+#' }
+#' @keywords DIC
+#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+#'     (15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PimentelTb21.5.1)
+#' str(PimentelTb21.5.1)
+#' 
+#' xyplot(doentes ~ trat,
+#'        data = PimentelTb21.5.1,
+#'        type = c("a", "p"),
+#'        ylab = "Porcentagem de Plantas Doentes",
+#'        xlab = "Tratamento")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PimentelTb21.5.1.txt b/data-raw/PimentelTb21.5.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..adf012b05d210747a984940737b18537f0ee3e11
--- /dev/null
+++ b/data-raw/PimentelTb21.5.1.txt
@@ -0,0 +1,13 @@
+trat	doentes
+1	10
+1	15
+1	5
+1	30
+2	27
+2	28
+2	44
+2	35
+3	40
+3	70
+3	55
+3	60
diff --git a/data/PimentelTb21.5.1.rda b/data/PimentelTb21.5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..920015be0338ef2deeedd2b5d82ae4be1ebd2568
Binary files /dev/null and b/data/PimentelTb21.5.1.rda differ
diff --git a/man/PimentelTb21.5.1.Rd b/man/PimentelTb21.5.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c20924e3349b777b8564fe3c2e821eab0656bec8
--- /dev/null
+++ b/man/PimentelTb21.5.1.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PimentelTb21.5.1.R
+\name{PimentelTb21.5.1}
+\alias{PimentelTb21.5.1}
+\title{Porcentagem de Plantas Doentes}
+\format{Um \code{data.frame} com 12 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{trat}}{Fator de 3 níveis qualitativos, que são os
+    tratamentos.}
+
+\item{\code{doentes}}{Porcentagem de plantas doentes em um ensaio de
+    tomateiros.}
+
+}}
+\source{
+Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+    (15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384)
+}
+\description{
+Ensaio inteiramente casualizado relativo à porcentagem
+    de plantas doentes em um experimento de tomateiros, em que foi
+    aplicado o teste de Kruskal-Wallis.
+}
+\examples{
+
+library(lattice)
+
+data(PimentelTb21.5.1)
+str(PimentelTb21.5.1)
+
+xyplot(doentes ~ trat,
+       data = PimentelTb21.5.1,
+       type = c("a", "p"),
+       ylab = "Porcentagem de Plantas Doentes",
+       xlab = "Tratamento")
+
+}
+\keyword{DIC}
+