diff --git a/R/AndradeTb2.22.R b/R/AndradeTb2.22.R
new file mode 100644
index 0000000000000000000000000000000000000000..782ff7bbf8802ac196c4ad8836ca202ec37c60db
--- /dev/null
+++ b/R/AndradeTb2.22.R
@@ -0,0 +1,35 @@
+#' @name AndradeTb2.22
+#' @title Área Foliar Específica de \emph{Cecropia Glazioui}
+#' @description Experimento relativo à variação de luz no crescimento
+#'     das plantas, medida através da área foliar específica após 60
+#'     dias, da espécie \emph{Cecropia glazioui}, em amostras situadas
+#'     em borda de mata e mata fechada, com intensidade de luz média de
+#'     10,6% e 0,87%, respectivamente.
+#' @format Um \code{data.frame} com 70 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{af}}{Fator de 2 níveis qualitativos que são as áreas
+#'     foliares (Borda da Mata e Mata Fechada).}
+#'
+#' \item{\code{cresc}}{Crescimento das plantas.}
+#'
+#' }
+#' @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.22, pág. 104)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.22)
+#' str(AndradeTb2.22)
+#'
+#' bwplot(cresc ~ af,
+#'        data = AndradeTb2.22,
+#'        xlab = "Área Foliar",
+#'        ylab = "Crescimento das Plantas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.22.txt b/data-raw/AndradeTb2.22.txt
new file mode 100644
index 0000000000000000000000000000000000000000..dcde8a55bbc5af916b213fccebc7b15cc6228eb2
--- /dev/null
+++ b/data-raw/AndradeTb2.22.txt
@@ -0,0 +1,71 @@
+af	cresc
+BordaDaMata	0.2145
+BordaDaMata	0.254
+BordaDaMata	0.2592
+BordaDaMata	0.2891
+BordaDaMata	0.2971
+BordaDaMata	0.3013
+BordaDaMata	0.3279
+BordaDaMata	0.3458
+BordaDaMata	0.3482
+BordaDaMata	0.3487
+BordaDaMata	0.349
+BordaDaMata	0.3547
+BordaDaMata	0.3574
+BordaDaMata	0.3648
+BordaDaMata	0.3796
+BordaDaMata	0.3815
+BordaDaMata	0.3874
+BordaDaMata	0.3924
+BordaDaMata	0.3931
+BordaDaMata	0.3971
+BordaDaMata	0.4015
+BordaDaMata	0.4125
+BordaDaMata	0.4142
+BordaDaMata	0.4182
+BordaDaMata	0.4326
+BordaDaMata	0.4358
+BordaDaMata	0.4573
+BordaDaMata	0.4582
+BordaDaMata	0.4657
+BordaDaMata	0.467
+BordaDaMata	0.4823
+BordaDaMata	0.4862
+BordaDaMata	0.4921
+BordaDaMata	0.5010
+BordaDaMata	0.5231
+MataFechada	0.5521
+MataFechada	0.5841
+MataFechada	0.6284
+MataFechada	0.6357
+MataFechada	0.6489
+MataFechada	0.6570
+MataFechada	0.6704
+MataFechada	0.678
+MataFechada	0.6842
+MataFechada	0.6898
+MataFechada	0.6945
+MataFechada	0.695
+MataFechada	0.697
+MataFechada	0.7125
+MataFechada	0.7126
+MataFechada	0.7154
+MataFechada	0.7179
+MataFechada	0.7256
+MataFechada	0.7321
+MataFechada	0.7783
+MataFechada	0.7884
+MataFechada	0.7894
+MataFechada	0.7912
+MataFechada	0.8023
+MataFechada	0.8046
+MataFechada	0.8451
+MataFechada	0.8467
+MataFechada	0.8468
+MataFechada	0.8564
+MataFechada	0.865
+MataFechada	0.8665
+MataFechada	0.9214
+MataFechada	0.9421
+MataFechada	0.9573
+MataFechada	0.9689
diff --git a/data/AndradeTb2.22.rda b/data/AndradeTb2.22.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d564054fd9c8fe44fe296ec7d56bc3f53baf5579
Binary files /dev/null and b/data/AndradeTb2.22.rda differ
diff --git a/man/AndradeTb2.22.Rd b/man/AndradeTb2.22.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..8f40d0236274f4707fe4e7edeacb1e099013d57f
--- /dev/null
+++ b/man/AndradeTb2.22.Rd
@@ -0,0 +1,43 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.22.R
+\name{AndradeTb2.22}
+\alias{AndradeTb2.22}
+\title{Área Foliar Específica de \emph{Cecropia Glazioui}}
+\format{Um \code{data.frame} com 70 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{af}}{Fator de 2 níveis qualitativos que são as áreas
+    foliares (Borda da Mata e Mata Fechada).}
+
+\item{\code{cresc}}{Crescimento das plantas.}
+
+}}
+\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.22, pág. 104)
+}
+\description{
+Experimento relativo à variação de luz no crescimento
+    das plantas, medida através da área foliar específica após 60
+    dias, da espécie \emph{Cecropia glazioui}, em amostras situadas
+    em borda de mata e mata fechada, com intensidade de luz média de
+    10,6% e 0,87%, respectivamente.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.22)
+str(AndradeTb2.22)
+
+bwplot(cresc ~ af,
+       data = AndradeTb2.22,
+       xlab = "Área Foliar",
+       ylab = "Crescimento das Plantas")
+
+}
+\keyword{AAS}
+