diff --git a/R/AndradeEx7.3.R b/R/AndradeEx7.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..05e0edbc47f5955d49f5435cde25d66a3a024d9e
--- /dev/null
+++ b/R/AndradeEx7.3.R
@@ -0,0 +1,36 @@
+#' @name AndradeEx7.3
+#' @title Diâmetros de Árvores de Eucalipto
+#' @description De um povoamento de eucaliptos, sortearam-se 30 árvores
+#'     e determinaram-se os diâmetros, em cm, com a finalidade de
+#'     estimar o diâmetro médio do povoamento.
+#' @format Um \code{vector} numérico com 30 observações.
+#' @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 7, Exercício
+#'     3, pág. 342)
+#' @examples
+#'
+#' data(AndradeEx7.3)
+#' str(AndradeEx7.3)
+#'
+#' hist(AndradeEx7.3,
+#'      prob = TRUE,
+#'      labels = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Diâmetro (em cm)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      ylim = c(0, 0.055))
+#'
+#' lines(density(AndradeEx7.3), lwd = 2)
+#' rug(AndradeEx7.3)
+#'
+#' boxplot(AndradeEx7.3,
+#'         ylab = "Diâmetro (em cm)")
+#'
+#' mean(AndradeEx7.3)
+#' sd(AndradeEx7.3)
+#' fivenum(AndradeEx7.3)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx7.3.txt b/data-raw/AndradeEx7.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..46368757df9238933da825f34284c6b197c4cce5
--- /dev/null
+++ b/data-raw/AndradeEx7.3.txt
@@ -0,0 +1,30 @@
+10.1
+15.8
+18.5
+22.3
+23.5
+17.2
+17.8
+18.7
+16.7
+29.1
+28
+30.3
+26.8
+28
+17.8
+18.9
+28.9
+27.9
+22.5
+32.9
+29.5
+28.3
+34.2
+38.5
+38.5
+35.5
+34.2
+31.8
+32.5
+41.8
diff --git a/data/AndradeEx7.3.rda b/data/AndradeEx7.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3b09415d0905af6977e78c9f63c234814d127b67
Binary files /dev/null and b/data/AndradeEx7.3.rda differ
diff --git a/man/AndradeEx7.3.Rd b/man/AndradeEx7.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..195ae98d7552de8aa7de18838416ece9ecfc4d0b
--- /dev/null
+++ b/man/AndradeEx7.3.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx7.3.R
+\name{AndradeEx7.3}
+\alias{AndradeEx7.3}
+\title{Diâmetros de Árvores de Eucalipto}
+\format{Um \code{vector} numérico com 30 observações.}
+\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 7, Exercício
+    3, pág. 342)
+}
+\description{
+De um povoamento de eucaliptos, sortearam-se 30 árvores
+    e determinaram-se os diâmetros, em cm, com a finalidade de
+    estimar o diâmetro médio do povoamento.
+}
+\examples{
+
+data(AndradeEx7.3)
+str(AndradeEx7.3)
+
+hist(AndradeEx7.3,
+     prob = TRUE,
+     labels = TRUE,
+     col = "darkturquoise",
+     xlab = "Diâmetro (em cm)",
+     ylab = "Densidade",
+     main = NULL,
+     ylim = c(0, 0.055))
+
+lines(density(AndradeEx7.3), lwd = 2)
+rug(AndradeEx7.3)
+
+boxplot(AndradeEx7.3,
+        ylab = "Diâmetro (em cm)")
+
+mean(AndradeEx7.3)
+sd(AndradeEx7.3)
+fivenum(AndradeEx7.3)
+
+}
+\keyword{AAS}
+