diff --git a/R/AndradeTb2.12.R b/R/AndradeTb2.12.R
new file mode 100644
index 0000000000000000000000000000000000000000..f44945bb4e67501cb0c774bdf2690cdc850ccafe
--- /dev/null
+++ b/R/AndradeTb2.12.R
@@ -0,0 +1,41 @@
+#' @name AndradeTb2.12
+#' @title Estudo de Alimentação de Pássaros
+#' @description Estudo do número de pássadors de uma particular espécie,
+#'     classificados de acordo com o local da floresta onde se
+#'     alimentam, para duas estações do ano.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{estacao}}{Fator de 2 níveis qualitativos que são as
+#'     estações do ano (Primavera e Outono).}
+#'
+#' \item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
+#'     da Floresta (Árvores, Arbusto e Chão).}
+#'
+#' \item{\code{passaros}}{Número de pássaros de uma particular espécie.}
+#'
+#' }
+#' @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.12, pág. 81)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.12)
+#' str(AndradeTb2.12)
+#'
+#' xyplot(passaros ~ estacao,
+#'        groups = local,
+#'        data = AndradeTb2.12,
+#'        type = "b",
+#'        auto.key = list(title = "Local da Floresta",
+#'                        cex.title = 1.1,
+#'                        columns = 3),
+#'        xlab = "Estação do Ano",
+#'        ylab = "Número de Pássaros")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.12.txt b/data-raw/AndradeTb2.12.txt
new file mode 100644
index 0000000000000000000000000000000000000000..aa1dc95648fe9fbb8655a077e35d70a92c04fd7f
--- /dev/null
+++ b/data-raw/AndradeTb2.12.txt
@@ -0,0 +1,7 @@
+estacao	local	passaros
+primavera	arvores	30
+outono	arvores	13
+primavera	arbustos	20
+outono	arbustos	22
+primavera	chao	9
+outono	chao	26
diff --git a/data/AndradeTb2.12.rda b/data/AndradeTb2.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c8ac97fbb208841eede8efb1d632c17e175f6675
Binary files /dev/null and b/data/AndradeTb2.12.rda differ
diff --git a/man/AndradeTb2.12.Rd b/man/AndradeTb2.12.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c45904f8c38bf70d847e5ecdc444669cf46ed672
--- /dev/null
+++ b/man/AndradeTb2.12.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.12.R
+\name{AndradeTb2.12}
+\alias{AndradeTb2.12}
+\title{Estudo de Alimentação de Pássaros}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{estacao}}{Fator de 2 níveis qualitativos que são as
+    estações do ano (Primavera e Outono).}
+
+\item{\code{local}}{Fator de 3 níveis qualitativos que são os locais
+    da Floresta (Árvores, Arbusto e Chão).}
+
+\item{\code{passaros}}{Número de pássaros de uma particular espécie.}
+
+}}
+\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.12, pág. 81)
+}
+\description{
+Estudo do número de pássadors de uma particular espécie,
+    classificados de acordo com o local da floresta onde se
+    alimentam, para duas estações do ano.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.12)
+str(AndradeTb2.12)
+
+xyplot(passaros ~ estacao,
+       groups = local,
+       data = AndradeTb2.12,
+       type = "b",
+       auto.key = list(title = "Local da Floresta",
+                       cex.title = 1.1,
+                       columns = 3),
+       xlab = "Estação do Ano",
+       ylab = "Número de Pássaros")
+
+}
+\keyword{AAS}
+