diff --git a/R/AndradeEx4.8.R b/R/AndradeEx4.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..d8326098f08365309ef1116ec9b8fff705ce47b8
--- /dev/null
+++ b/R/AndradeEx4.8.R
@@ -0,0 +1,30 @@
+#' @name AndradeEx4.8
+#' @title Número de Ninhadas com X Porcos Machos
+#' @description Foram examinadas 2.000 ninhadas de cinco porcos cada
+#'     uma, segundo o número de machos.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+#'
+#' \item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+#'
+#' }
+#' @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
+#'     8, pág. 237)
+#' @examples
+#'
+#' data(AndradeEx4.8)
+#' str(AndradeEx4.8)
+#'
+#' barplot(AndradeEx4.8$ninhadas,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEx4.8$x,
+#'         xlab = "Número de Machos na Ninhada",
+#'         ylab = "Número de Ninhadas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx4.8.txt b/data-raw/AndradeEx4.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..4a220a5e07dcfc11b5e1d63125798835cc8d9584
--- /dev/null
+++ b/data-raw/AndradeEx4.8.txt
@@ -0,0 +1,7 @@
+x	ninhadas
+0	20
+1	360
+2	700
+3	680
+4	200
+5	40
diff --git a/data/AndradeEx4.8.rda b/data/AndradeEx4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8da26e4d48d9a99c948b6df600d801f13db52d6a
Binary files /dev/null and b/data/AndradeEx4.8.rda differ
diff --git a/man/AndradeEx4.8.Rd b/man/AndradeEx4.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..47e73ab86a0fbc45cff4eb2359ad0fdb39a373f9
--- /dev/null
+++ b/man/AndradeEx4.8.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.8.R
+\name{AndradeEx4.8}
+\alias{AndradeEx4.8}
+\title{Número de Ninhadas com X Porcos Machos}
+\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+
+\item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+
+}}
+\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
+    8, pág. 237)
+}
+\description{
+Foram examinadas 2.000 ninhadas de cinco porcos cada
+    uma, segundo o número de machos.
+}
+\examples{
+
+data(AndradeEx4.8)
+str(AndradeEx4.8)
+
+barplot(AndradeEx4.8$ninhadas,
+        col = "darkturquoise",
+        names.arg = AndradeEx4.8$x,
+        xlab = "Número de Machos na Ninhada",
+        ylab = "Número de Ninhadas")
+
+}
+\keyword{AAS}
+