diff --git a/R/FerreiraEg7.4.R b/R/FerreiraEg7.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..f6ac976747d92ea65cae2f94d2275662cd138224
--- /dev/null
+++ b/R/FerreiraEg7.4.R
@@ -0,0 +1,55 @@
+#' @name FerreiraEg7.4
+#' @title Avaliação de Duas Variedades de Milho
+#' @description Com o interesse de testar a hipótese de igualdade entre
+#'     duas variedades de milho, foram mensuradas as variáveis aleatórias
+#'     produtividade e altura das plantas em cada uma das variedades.
+#'     
+#' @format Um \code{data.frame} com 11 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{varie}}{Fator que indica a qual variedade a observação
+#'     pertence. Variedade A, com 6 observações e B com 5.}
+#'
+#' \item{\code{prod}}{Produtividade mensurada em t ha\eqn{^{-1}}
+#'     (tonelada por hectare).}
+#'
+#' \item{\code{altura}}{Altura média das plantas em metros.}
+#'
+#' }
+#' @keywords TODO
+#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
+#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 7.4 pág. 302)
+#'
+#' @examples
+#' data(FerreiraEg7.4)
+#'
+#' aggregate(prod ~ varie, data = FerreiraEg7.4, summary)
+#' aggregate(altura ~ varie, data = FerreiraEg7.4, summary)
+#' by(FerreiraEg7.4[2:3], FerreiraEg7.4[1], cov)
+#' 
+#' with(FerreiraEg7.4, {
+#'      par(mar = c(4, 5, 4, 5))
+#'      plot.default(y = prod, xlab = "", ylab = "",
+#'                   x = jitter(as.numeric(varie), factor = 0.5) - 0.1,
+#'                   xlim = c(0.5, 2.5),
+#'                   col = 4,
+#'                   axes = FALSE)
+#'      box()
+#'      axis(side = 2, col.axis = 4)
+#'      mtext(side = 2, text = "Produtividade em t/ha",
+#'            line = 3, col = 4) 
+#'      par(new = TRUE, mar = c(4, 5, 4, 5))
+#'      plot.default(y = altura, xlab = "", ylab = "",
+#'                   x = jitter(as.numeric(varie), factor = 0.5) + 0.1,
+#'                   xlim = c(0.5, 2.5),
+#'                   col = 2,
+#'                   axes = FALSE)
+#'      axis(side = 4, col.axis = 2)
+#'      axis(side = 1, at = 1:2,
+#'           labels = c("Variedade A", "Variedade B"))
+#'      mtext(side = 4, text = "Altura em m",
+#'            line = 3, col = 2)
+#' })
+#'
+NULL
diff --git a/data-raw/FerreiraEg7.4.txt b/data-raw/FerreiraEg7.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e5191e5233ab84a46297f380dc950fb88a5655c8
--- /dev/null
+++ b/data-raw/FerreiraEg7.4.txt
@@ -0,0 +1,12 @@
+varie	prod	altura
+A	5.7	2.1
+A	8.9	1.9
+A	6.2	1.98
+A	5.8	1.92
+A	6.8	2
+A	6.2	2.01
+B	4.4	1.8
+B	7.5	1.75
+B	5.4	1.78
+B	4.6	1.89
+B	5.9	1.9
diff --git a/data/FerreiraEg7.4.rda b/data/FerreiraEg7.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..421204f4cac5fd22b81483c23aa2e39fa81f39ed
Binary files /dev/null and b/data/FerreiraEg7.4.rda differ
diff --git a/man/FerreiraEg7.4.Rd b/man/FerreiraEg7.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..12db7056cb5e6476c82316737f5e0e5f51be86e8
--- /dev/null
+++ b/man/FerreiraEg7.4.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/FerreiraEg7.4.R
+\name{FerreiraEg7.4}
+\alias{FerreiraEg7.4}
+\title{Avaliação de Duas Variedades de Milho}
+\format{Um \code{data.frame} com 11 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{varie}}{Fator que indica a qual variedade a observação
+    pertence. Variedade A, com 6 observações e B com 5.}
+
+\item{\code{prod}}{Produtividade mensurada em t ha\eqn{^{-1}}
+    (tonelada por hectare).}
+
+\item{\code{altura}}{Altura média das plantas em metros.}
+
+}}
+\source{
+Ferreira, D. F. (2011). Estatística Multivariada (2nd
+    ed.). Lavras, MG: Editora UFLA. (Exemplo 7.4 pág. 302)
+}
+\description{
+Com o interesse de testar a hipótese de igualdade entre
+    duas variedades de milho, foram mensuradas as variáveis aleatórias
+    produtividade e altura das plantas em cada uma das variedades.
+}
+\examples{
+data(FerreiraEg7.4)
+
+aggregate(prod ~ varie, data = FerreiraEg7.4, summary)
+aggregate(altura ~ varie, data = FerreiraEg7.4, summary)
+by(FerreiraEg7.4[2:3], FerreiraEg7.4[1], cov)
+
+with(FerreiraEg7.4, {
+     par(mar = c(4, 5, 4, 5))
+     plot.default(y = prod, xlab = "", ylab = "",
+                  x = jitter(as.numeric(varie), factor = 0.5) - 0.1,
+                  xlim = c(0.5, 2.5),
+                  col = 4,
+                  axes = FALSE)
+     box()
+     axis(side = 2, col.axis = 4)
+     mtext(side = 2, text = "Produtividade em t/ha",
+           line = 3, col = 4) 
+     par(new = TRUE, mar = c(4, 5, 4, 5))
+     plot.default(y = altura, xlab = "", ylab = "",
+                  x = jitter(as.numeric(varie), factor = 0.5) + 0.1,
+                  xlim = c(0.5, 2.5),
+                  col = 2,
+                  axes = FALSE)
+     axis(side = 4, col.axis = 2)
+     axis(side = 1, at = 1:2,
+          labels = c("Variedade A", "Variedade B"))
+     mtext(side = 4, text = "Altura em m",
+           line = 3, col = 2)
+})
+
+}
+\keyword{TODO}
+