diff --git a/R/AndradeTb2.24.R b/R/AndradeTb2.24.R
new file mode 100644
index 0000000000000000000000000000000000000000..549843a54ec8e007b72b46dc7bb4a221d0074da4
--- /dev/null
+++ b/R/AndradeTb2.24.R
@@ -0,0 +1,40 @@
+#' @name AndradeTb2.24
+#' @title Estudo sobre a Adoção de uma Variedade de Arroz
+#' @description Um economista agrícola está estudando fatores que afetam
+#'     a adoção de uma nova variedade de arroz altamente produtiva.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Posse}}{Fator de 3 níveis qualitativos que são os tipos
+#'     de posse de terra.}
+#'
+#' \item{\code{Adocao}}{Fator de 2 níveis qualitativos que indica se há,
+#'     ou não, a adoção da nova variedade de arroz.}
+#'
+#' \item{\code{Freq}}{Frequência conjunta de Posse e Adoçã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.24, pág. 106)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.24)
+#' str(AndradeTb2.24)
+#'
+#' xyplot(Freq ~ Adocao,
+#'        groups = Posse,
+#'        data = AndradeTb2.24,
+#'        type = "b",
+#'        auto.key = list(title = "Posse",
+#'                        cex.title = 1.1,
+#'                        columns = 3),
+#'        xlab = "Adoção",
+#'        ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.24.txt b/data-raw/AndradeTb2.24.txt
new file mode 100644
index 0000000000000000000000000000000000000000..4bf35fcdce16d5d033fe7122827e49743a23b05e
--- /dev/null
+++ b/data-raw/AndradeTb2.24.txt
@@ -0,0 +1,7 @@
+Posse	Adocao	Freq
+Proprietario	Adota	102
+VariosArrendatarios	Adota	42
+UnicoArrendatario	Adota	5
+Proprietario	NaoAdota	26
+VariosArrendatarios	NaoAdota	10
+UnicoArrendatario	NaoAdota	2
diff --git a/data/AndradeTb2.24.rda b/data/AndradeTb2.24.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6337735d5bc7dfbf933736a716a90fadc4a275cc
Binary files /dev/null and b/data/AndradeTb2.24.rda differ
diff --git a/man/AndradeTb2.24.Rd b/man/AndradeTb2.24.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..93e503bcb0a375076af2bd38485426efa97cb353
--- /dev/null
+++ b/man/AndradeTb2.24.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.24.R
+\name{AndradeTb2.24}
+\alias{AndradeTb2.24}
+\title{Estudo sobre a Adoção de uma Variedade de Arroz}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{Posse}}{Fator de 3 níveis qualitativos que são os tipos
+    de posse de terra.}
+
+\item{\code{Adocao}}{Fator de 2 níveis qualitativos que indica se há,
+    ou não, a adoção da nova variedade de arroz.}
+
+\item{\code{Freq}}{Frequência conjunta de Posse e Adoçã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.24, pág. 106)
+}
+\description{
+Um economista agrícola está estudando fatores que afetam
+    a adoção de uma nova variedade de arroz altamente produtiva.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.24)
+str(AndradeTb2.24)
+
+xyplot(Freq ~ Adocao,
+       groups = Posse,
+       data = AndradeTb2.24,
+       type = "b",
+       auto.key = list(title = "Posse",
+                       cex.title = 1.1,
+                       columns = 3),
+       xlab = "Adoção",
+       ylab = "Frequência")
+
+}
+\keyword{AAS}
+