diff --git a/R/AndradeTb4.1.R b/R/AndradeTb4.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..43549db28a025a61f0bbada8d0b9edd78f31fa64
--- /dev/null
+++ b/R/AndradeTb4.1.R
@@ -0,0 +1,30 @@
+#' @name AndradeTb4.1
+#' @title Número de Casais com X Filhos Homens
+#' @description Foram observados 10.690 casais com 12 filhos cada, e
+#'     então contou-se o número de filhos do sexo masculino de cada
+#'     casal.
+#' @format Um \code{data.frame} com 13 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Número de filhos homens.}
+#'
+#' \item{\code{casais}}{Número de casais com x filhos homens.}
+#'
+#' }
+#' @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. (Tabela 4.1, pág. 235)
+#' @examples
+#'
+#' data(AndradeTb4.1)
+#' str(AndradeTb4.1)
+#'
+#' barplot(AndradeTb4.1$casais,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeTb4.1$x,
+#'         xlab = "Número de Filhos Homens",
+#'         ylab = "Número de Casais")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb4.1.txt b/data-raw/AndradeTb4.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..0c2238a112975b76e608abcf34fb0ea8005e1798
--- /dev/null
+++ b/data-raw/AndradeTb4.1.txt
@@ -0,0 +1,14 @@
+x	casais
+0	5
+1	35
+2	180
+3	599
+4	1250
+5	1990
+6	2400
+7	2060
+8	1350
+9	600
+10	179
+11	35
+12	7
diff --git a/data/AndradeTb4.1.rda b/data/AndradeTb4.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c7b789d38c2a7fcb7eefa824651222490ea6e853
Binary files /dev/null and b/data/AndradeTb4.1.rda differ
diff --git a/man/AndradeTb4.1.Rd b/man/AndradeTb4.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..23e012dba73a068a02ca20f565b10bf09379502f
--- /dev/null
+++ b/man/AndradeTb4.1.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb4.1.R
+\name{AndradeTb4.1}
+\alias{AndradeTb4.1}
+\title{Número de Casais com X Filhos Homens}
+\format{Um \code{data.frame} com 13 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{x}}{Número de filhos homens.}
+
+\item{\code{casais}}{Número de casais com x filhos homens.}
+
+}}
+\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. (Tabela 4.1, pág. 235)
+}
+\description{
+Foram observados 10.690 casais com 12 filhos cada, e
+    então contou-se o número de filhos do sexo masculino de cada
+    casal.
+}
+\examples{
+
+data(AndradeTb4.1)
+str(AndradeTb4.1)
+
+barplot(AndradeTb4.1$casais,
+        col = "darkturquoise",
+        names.arg = AndradeTb4.1$x,
+        xlab = "Número de Filhos Homens",
+        ylab = "Número de Casais")
+
+}
+\keyword{AAS}
+