diff --git a/R/AndradeTb2.25.R b/R/AndradeTb2.25.R
new file mode 100644
index 0000000000000000000000000000000000000000..52a8e0d08cea2bb2ff13b8b8b9d1ebf6d24721fc
--- /dev/null
+++ b/R/AndradeTb2.25.R
@@ -0,0 +1,43 @@
+#' @name AndradeTb2.25
+#' @title Experimento de Germinação de Cultivares de Cebola
+#' @description Experimento com o objetivo de avaliar o poder
+#'     germinativo de duas cultivares de cebola. Foram utilizadas para o
+#'     teste de germinação quatro repetições de cem sementes,
+#'     totalizando quatrocentas sementes para cada cultivar. A variável
+#'     em estudo é o número de sementes que germinaram.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Cultivares}}{Fator de 2 níveis qualitativos que são as
+#'     cultivares de cebola (Bola Precoce-EMPASC 352 e Norte 14).}
+#'
+#' \item{\code{Germinação}}{Fator de 2 níveis qualitativos que indica se
+#'     a semente germinou ou não germinou.}
+#'
+#' \item{\code{Freq}}{Frequência conjunta de Cultivares e Germinação.}
+#'
+#' }
+#' @keywords AAS
+#' @source Estatística para as ciências agrárias e biológicas: com
+#'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+#'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+#'     2.25, pág. 107)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.25)
+#' str(AndradeTb2.25)
+#'
+#' xyplot(Freq ~ Germinacao,
+#'        groups = Cultivares,
+#'        data = AndradeTb2.25,
+#'        type = "b",
+#'        auto.key = list(title = "Cultivares",
+#'                        cex.title = 1.1,
+#'                        columns = 2),
+#'        xlab = "Germinação",
+#'        ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.25.txt b/data-raw/AndradeTb2.25.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8845bd81c37a676731f086c51e49e2364af07978
--- /dev/null
+++ b/data-raw/AndradeTb2.25.txt
@@ -0,0 +1,5 @@
+Cultivares	Germinacao	Freq
+BolaPrecoce	Germinaram	392
+Norte14	Germinaram	381
+BolaPrecoce	NaoGerminaram	8
+Norte14	NaoGerminaram	19
diff --git a/data/AndradeTb2.25.rda b/data/AndradeTb2.25.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bf4942a6a1efd9e8620c13a0671edc5e7dfed82d
Binary files /dev/null and b/data/AndradeTb2.25.rda differ
diff --git a/man/AndradeTb2.25.Rd b/man/AndradeTb2.25.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..3e9bb16610846910a0d7b147f068be7320eedbbf
--- /dev/null
+++ b/man/AndradeTb2.25.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.25.R
+\name{AndradeTb2.25}
+\alias{AndradeTb2.25}
+\title{Experimento de Germinação de Cultivares de Cebola}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{Cultivares}}{Fator de 2 níveis qualitativos que são as
+    cultivares de cebola (Bola Precoce-EMPASC 352 e Norte 14).}
+
+\item{\code{Germinação}}{Fator de 2 níveis qualitativos que indica se
+    a semente germinou ou não germinou.}
+
+\item{\code{Freq}}{Frequência conjunta de Cultivares e Germinação.}
+
+}}
+\source{
+Estatística para as ciências agrárias e biológicas: com
+    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+    2.25, pág. 107)
+}
+\description{
+Experimento com o objetivo de avaliar o poder
+    germinativo de duas cultivares de cebola. Foram utilizadas para o
+    teste de germinação quatro repetições de cem sementes,
+    totalizando quatrocentas sementes para cada cultivar. A variável
+    em estudo é o número de sementes que germinaram.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.25)
+str(AndradeTb2.25)
+
+xyplot(Freq ~ Germinacao,
+       groups = Cultivares,
+       data = AndradeTb2.25,
+       type = "b",
+       auto.key = list(title = "Cultivares",
+                       cex.title = 1.1,
+                       columns = 2),
+       xlab = "Germinação",
+       ylab = "Frequência")
+
+}
+\keyword{AAS}
+