diff --git a/R/AndradeTb2.23.R b/R/AndradeTb2.23.R
new file mode 100644
index 0000000000000000000000000000000000000000..719332b22c81000baea3223342e1a20acb464df6
--- /dev/null
+++ b/R/AndradeTb2.23.R
@@ -0,0 +1,36 @@
+#' @name AndradeTb2.23
+#' @title Estudo Sobre Locais e Ocorrência de Aborto
+#' @description Um pesquisador está estudando uma possível associação
+#'     entre local e o número de abortos de crianças do sexo feminino.
+#' @format Um \code{data.frame} com 65 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Fator de 2 níveis qualitativos que são  os
+#'     locais, sendo: 1 = Rio Vermelho; 2 = Costa da Lagoa.}
+#'
+#' \item{\code{aborto}}{Número de ocorrências de abortos de crianças do
+#'     sexo feminino.}
+#'
+#' }
+#' @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.23, pág. 105)
+#' @examples
+#'
+#' data(AndradeTb2.23)
+#' str(AndradeTb2.23)
+#'
+#' tb <- xtabs(data = AndradeTb2.23)
+#'
+#' barplot(t(tb),
+#'         beside = TRUE,
+#'         legend.text = c("0 Aborto","1 Aborto", "2 Abortos"),
+#'         ylim = c(0, 25),
+#'         xlab = "Local",
+#'         ylab = "Frequência",
+#'         names.arg = c("Rio Vermelho", "Costa da Lagoa"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.23.txt b/data-raw/AndradeTb2.23.txt
new file mode 100644
index 0000000000000000000000000000000000000000..d5987732b23e261a647cf45ba3bea5bddd798d08
--- /dev/null
+++ b/data-raw/AndradeTb2.23.txt
@@ -0,0 +1,66 @@
+local	aborto
+2	0
+2	0
+2	1
+2	0
+2	0
+2	0
+2	0
+2	2
+2	2
+2	0
+2	1
+2	1
+2	0
+2	0
+2	0
+2	1
+2	1
+2	1
+2	1
+2	1
+2	0
+2	0
+2	0
+2	0
+2	0
+2	0
+2	0
+2	0
+2	0
+2	0
+2	1
+2	1
+2	2
+2	0
+2	0
+2	0
+2	0
+2	1
+1	1
+1	1
+1	1
+1	0
+1	2
+1	1
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
+1	0
diff --git a/data/AndradeTb2.23.rda b/data/AndradeTb2.23.rda
new file mode 100644
index 0000000000000000000000000000000000000000..71533a8d576c295e9da9d7565026b78f075c290b
Binary files /dev/null and b/data/AndradeTb2.23.rda differ
diff --git a/man/AndradeTb2.23.Rd b/man/AndradeTb2.23.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..dee142418a2e1c5ffe79ee0619cf8e3470e7f638
--- /dev/null
+++ b/man/AndradeTb2.23.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.23.R
+\name{AndradeTb2.23}
+\alias{AndradeTb2.23}
+\title{Estudo Sobre Locais e Ocorrência de Aborto}
+\format{Um \code{data.frame} com 65 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{local}}{Fator de 2 níveis qualitativos que são  os
+    locais, sendo: 1 = Rio Vermelho; 2 = Costa da Lagoa.}
+
+\item{\code{aborto}}{Número de ocorrências de abortos de crianças do
+    sexo feminino.}
+
+}}
+\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.23, pág. 105)
+}
+\description{
+Um pesquisador está estudando uma possível associação
+    entre local e o número de abortos de crianças do sexo feminino.
+}
+\examples{
+
+data(AndradeTb2.23)
+str(AndradeTb2.23)
+
+tb <- xtabs(data = AndradeTb2.23)
+
+barplot(t(tb),
+        beside = TRUE,
+        legend.text = c("0 Aborto","1 Aborto", "2 Abortos"),
+        ylim = c(0, 25),
+        xlab = "Local",
+        ylab = "Frequência",
+        names.arg = c("Rio Vermelho", "Costa da Lagoa"))
+
+}
+\keyword{AAS}
+