diff --git a/.RData b/.RData
index 45cd2f855d373e395745763e033f564b649aeb41..16fdcd86103179f6ec522e1f58e958f328825666 100644
Binary files a/.RData and b/.RData differ
diff --git a/R/AndradeTb2.15.R b/R/AndradeTb2.15.R
new file mode 100644
index 0000000000000000000000000000000000000000..7e2b71503d24e3f21f988af8d904b64a2fb35ab9
--- /dev/null
+++ b/R/AndradeTb2.15.R
@@ -0,0 +1,39 @@
+#' @name AndradeTb2.15
+#' @title Distribuição do Número de Plantas Sadias de Mandioca
+#' @description Estudo da distribuição do número de plantas sadias de
+#'     mandioca colhidas na área útil de uma parcela.
+#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{plantas}}{Número de plantas sadias de mandioca.}
+#'
+#' \item{\code{freq}}{Frequência do número de plantas sadias de
+#'     mandioca.}
+#'
+#' }
+#' @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.15, pág. 89)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.15)
+#' str(AndradeTb2.15)
+#'
+#' bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)),
+#'               names.arg = AndradeTb2.15$plantas,
+#'               col = "darkturquoise",
+#'               beside = TRUE,
+#'               ylim = c(0, 50),
+#'               xlab = "Número de Plantas Colhidas Sadias",
+#'               ylab = "Porcentagem do Número de Parcelas")
+#'
+#' text(bp, 0,
+#'      round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1),
+#'      cex= 1, pos = 3)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/.~lock.AndradeTb2.15.csv# b/data-raw/.~lock.AndradeTb2.15.csv#
new file mode 100644
index 0000000000000000000000000000000000000000..c80a0a83a41247ae4a24bf4fa39728ad79ae2a67
--- /dev/null
+++ b/data-raw/.~lock.AndradeTb2.15.csv#
@@ -0,0 +1 @@
+,pet-estatistica2,petestatistica2-G31M-ES2C,01.09.2016 15:12,file:///home/pet-estatistica2/.config/libreoffice/4;
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.15.txt b/data-raw/AndradeTb2.15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d7c1867879cf4d994b3d5a7bdd32a163f54d1fcf
--- /dev/null
+++ b/data-raw/AndradeTb2.15.txt
@@ -0,0 +1,6 @@
+plantas	freq
+23	1
+24	3
+25	4
+26	8
+27	14
diff --git a/data/AndradeTb2.15.rda b/data/AndradeTb2.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..cef7184377835114272f5f639010285d97b4e02c
Binary files /dev/null and b/data/AndradeTb2.15.rda differ
diff --git a/man/AndradeTb2.15.Rd b/man/AndradeTb2.15.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c3a0daf6b4dbc1d766e981a823189dd2c04dc22f
--- /dev/null
+++ b/man/AndradeTb2.15.Rd
@@ -0,0 +1,47 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.15.R
+\name{AndradeTb2.15}
+\alias{AndradeTb2.15}
+\title{Distribuição do Número de Plantas Sadias de Mandioca}
+\format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{plantas}}{Número de plantas sadias de mandioca.}
+
+\item{\code{freq}}{Frequência do número de plantas sadias de
+    mandioca.}
+
+}}
+\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.15, pág. 89)
+}
+\description{
+Estudo da distribuição do número de plantas sadias de
+    mandioca colhidas na área útil de uma parcela.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.15)
+str(AndradeTb2.15)
+
+bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)),
+              names.arg = AndradeTb2.15$plantas,
+              col = "darkturquoise",
+              beside = TRUE,
+              ylim = c(0, 50),
+              xlab = "Número de Plantas Colhidas Sadias",
+              ylab = "Porcentagem do Número de Parcelas")
+
+text(bp, 0,
+     round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1),
+     cex= 1, pos = 3)
+
+}
+\keyword{AAS}
+