diff --git a/R/AndradeTb6.2.R b/R/AndradeTb6.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..9eb43cea205cf6c83d79256c32dc3586d58be0f1
--- /dev/null
+++ b/R/AndradeTb6.2.R
@@ -0,0 +1,43 @@
+#' @name AndradeTb6.2
+#' @title Alturas das Alunas do Curso de Estatística Básica
+#' @description Dados das alturas de 17 alunas da turma de Estatística
+#'     Básica do Curso de Ciências Biológicas.
+#' @format Um \code{data.frame} com 11 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{altura}}{Altura das alunas, em metros.}
+#'
+#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+#'
+#' }
+#' @keywords CENSO
+#' @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 6.2, pág. 289)
+#' @examples
+#'
+#' data(AndradeTb6.2)
+#' str(AndradeTb6.2)
+#'
+#' # Gráfico de barras
+#' with(AndradeTb6.2, {
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "% )") 
+#'   bp <- barplot(freq, 
+#'                 names.arg = altura, 
+#'                 col = "darkturquoise",
+#'                 beside = TRUE, 
+#'                 ylim = c(0, 5),
+#'                 xlab = "Altura das Alunas",
+#'                 ylab = "Frequência Absoluta")
+#'   text(bp, freq + 0.3, labels = paste(freq, fr)) 
+#'   }) 
+#'
+#' # Gráfico de setores 
+#' with(AndradeTb6.2, { 
+#'   fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#'   pie(freq, labels = paste(altura, "metros", fr), 
+#'       col = gray.colors(length(freq)))
+#'   })
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb6.2.txt b/data-raw/AndradeTb6.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..192cab9201d94fbafe1fb593a2087770b3f8c05e
--- /dev/null
+++ b/data-raw/AndradeTb6.2.txt
@@ -0,0 +1,12 @@
+altura	freq
+1.56	1
+1.6	4
+1.61	2
+1.62	1
+1.63	1
+1.65	1
+1.67	2
+1.68	1
+1.7	1
+1.72	2
+1.73	1
diff --git a/data/AndradeTb6.2.rda b/data/AndradeTb6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0bb4d01f3552727bca40c49e1800ab5d870f7056
Binary files /dev/null and b/data/AndradeTb6.2.rda differ
diff --git a/man/AndradeTb6.2.Rd b/man/AndradeTb6.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b08186001ac8b28c51fdf8bfe8ff0e8601894631
--- /dev/null
+++ b/man/AndradeTb6.2.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb6.2.R
+\name{AndradeTb6.2}
+\alias{AndradeTb6.2}
+\title{Alturas das Alunas do Curso de Estatística Básica}
+\format{Um \code{data.frame} com 11 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{altura}}{Altura das alunas, em metros.}
+
+\item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+
+}}
+\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 6.2, pág. 289)
+}
+\description{
+Dados das alturas de 17 alunas da turma de Estatística
+    Básica do Curso de Ciências Biológicas.
+}
+\examples{
+
+data(AndradeTb6.2)
+str(AndradeTb6.2)
+
+# Gráfico de barras
+with(AndradeTb6.2, {
+  fr <- paste0("(", round(100 * freq / sum(freq)), "\% )") 
+  bp <- barplot(freq, 
+                names.arg = altura, 
+                col = "darkturquoise",
+                beside = TRUE, 
+                ylim = c(0, 5),
+                xlab = "Altura das Alunas",
+                ylab = "Frequência Absoluta")
+  text(bp, freq + 0.3, labels = paste(freq, fr)) 
+  }) 
+
+# Gráfico de setores 
+with(AndradeTb6.2, { 
+  fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+  pie(freq, labels = paste(altura, "metros", fr), 
+      col = gray.colors(length(freq)))
+  })
+
+}
+\keyword{CENSO}
+