diff --git a/R/AndradeEx4.9.R b/R/AndradeEx4.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..345c19f0884a1e7d6c5abda95f7f8cf1d0794f0d
--- /dev/null
+++ b/R/AndradeEx4.9.R
@@ -0,0 +1,32 @@
+#' @name AndradeEx4.9
+#' @title Número de Quadrados com X Plantas
+#' @description Uma certa região florestal foi dividida em 109 quadrados
+#'     para estudar a distribuição de \emph{Primula simenses} selvagem.
+#'     A priori, supomos que essa espécie distribui-se aleatoriamente na
+#'     região.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Número de plantas no quadrado.}
+#'
+#' \item{\code{quadrados}}{Número de quadrados com x plantas.}
+#'
+#' }
+#' @keywords AAS
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 4, Exercício
+#'     9, pág. 238)
+#' @examples
+#'
+#' data(AndradeEx4.9)
+#' str(AndradeEx4.9)
+#'
+#' barplot(AndradeEx4.9$quadrados,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEx4.9$x,
+#'         xlab = "Número de Plantas no Quadrado",
+#'         ylab = "Número de Quadrados")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx4.9.txt b/data-raw/AndradeEx4.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d9b0dcea5bc41157928208434e44b97be87ddbc1
--- /dev/null
+++ b/data-raw/AndradeEx4.9.txt
@@ -0,0 +1,11 @@
+x	quadrados
+0	26
+1	21
+2	23
+3	14
+4	11
+5	4
+6	5
+7	4
+8	1
+>8	0
diff --git a/data/AndradeEx4.9.rda b/data/AndradeEx4.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d5d4bd1fd11b6ba9ac2714336ad807f9f9b94488
Binary files /dev/null and b/data/AndradeEx4.9.rda differ
diff --git a/man/AndradeEx4.9.Rd b/man/AndradeEx4.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2739ac3ccf5c88fe776218b2fd96fe514f8035a6
--- /dev/null
+++ b/man/AndradeEx4.9.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.9.R
+\name{AndradeEx4.9}
+\alias{AndradeEx4.9}
+\title{Número de Quadrados com X Plantas}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{x}}{Número de plantas no quadrado.}
+
+\item{\code{quadrados}}{Número de quadrados com x plantas.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+    ciências agrárias e biológicas com noções de experimentação (2nd
+    ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 4, Exercício
+    9, pág. 238)
+}
+\description{
+Uma certa região florestal foi dividida em 109 quadrados
+    para estudar a distribuição de \emph{Primula simenses} selvagem.
+    A priori, supomos que essa espécie distribui-se aleatoriamente na
+    região.
+}
+\examples{
+
+data(AndradeEx4.9)
+str(AndradeEx4.9)
+
+barplot(AndradeEx4.9$quadrados,
+        col = "darkturquoise",
+        names.arg = AndradeEx4.9$x,
+        xlab = "Número de Plantas no Quadrado",
+        ylab = "Número de Quadrados")
+
+}
+\keyword{AAS}
+