diff --git a/R/AndradePg90.R b/R/AndradePg90.R
new file mode 100644
index 0000000000000000000000000000000000000000..3338728b68fd7035a8b090b45b6ee41f08541275
--- /dev/null
+++ b/R/AndradePg90.R
@@ -0,0 +1,43 @@
+#' @name AndradePg90
+#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
+#' @description Pesos ao nascer de 24 bezerros machos das raças
+#'     Charoleza e Gir.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
+#'     dos bezerros (Charoleza e Gir).}
+#'
+#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.32}}
+#' @keywords AASI
+#' @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. (Página 90)
+#' @examples
+#'
+#' data(AndradePg90)
+#' str(AndradePg90)
+#'
+#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradeTb2.32, um estudo similar.
+#' # help(AndradeTb2.32)
+#'
+#' da <- rbind(AndradePg90, AndradeTb2.32)
+#' bwplot(peso ~ raca,
+#'        data = da,
+#'        xlab = "Raça do Bezerro",
+#'        ylab = "Peso (em kg)")
+#'
+NULL
diff --git a/R/AndradeTb2.32.R b/R/AndradeTb2.32.R
index 7d9b492028e997ab9539bb2b857636dee27ac602..8bd6e8bf1c0a8893a1d9a4ac8e7f07ba7da68fc1 100644
--- a/R/AndradeTb2.32.R
+++ b/R/AndradeTb2.32.R
@@ -1,18 +1,19 @@
 #' @name AndradeTb2.32
-#' @title Pesos de Bezerros Recém-Nascidos
-#' @description Pesos, em kg, ao nascer de 10 bezerros da raça de gado
-#'     Crioula, e 10 da raça Nelore.
+#' @title Pesos de Bezerros Recém-Nascidos (Crioula e Nelore)
+#' @description Pesos, em quilogramas, ao nascer de bezerros da raça de
+#'     gado Crioula e Nelore.
 #' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos que são as raças
-#'     dos bezerros recém-nascidos.}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#'     recém-nascidos.}
 #'
 #' \item{\code{peso}}{Peso, em kg, do bezerro recém-nascido.}
 #'
 #' }
-#' @keywords AAS
+#' @seealso \code{\link{AndradePg90}}
+#' @keywords AASI
 #' @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 2.32, pág. 113)
@@ -21,10 +22,24 @@
 #' data(AndradeTb2.32)
 #' str(AndradeTb2.32)
 #'
+#' with(AndradeTb2.32, by(peso, raca, summary))
+#'
 #' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradePg90, um estudo similar.
+#' # help(AndradePg90)
+#'
+#' da <- rbind(AndradeTb2.32, AndradePg90)
 #' bwplot(peso ~ raca,
-#'        data = AndradeTb2.32,
+#'        data = da,
 #'        xlab = "Raça do Bezerro",
 #'        ylab = "Peso (em kg)")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradePg90.txt b/data-raw/AndradePg90.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9069ce89a8263efbc01304e2b28a1a1e2a25d3b9
--- /dev/null
+++ b/data-raw/AndradePg90.txt
@@ -0,0 +1,25 @@
+raca	peso
+Charoleza	47
+Charoleza	45
+Charoleza	37
+Charoleza	41
+Charoleza	46
+Charoleza	47
+Charoleza	34
+Charoleza	25
+Charoleza	40
+Charoleza	45
+Charoleza	48
+Charoleza	40
+Gir	40
+Gir	43
+Gir	44
+Gir	46
+Gir	48
+Gir	51
+Gir	54
+Gir	55
+Gir	56
+Gir	57
+Gir	55
+Gir	54
diff --git a/data/AndradePg90.rda b/data/AndradePg90.rda
new file mode 100644
index 0000000000000000000000000000000000000000..32a4514eb12a0b9c713c80baca48e713fcb86636
Binary files /dev/null and b/data/AndradePg90.rda differ