diff --git a/R/FerreiraEx7.4.1.R b/R/FerreiraEx7.4.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..59e75f1d5f11956b8259b427e3df7622ecf93664
--- /dev/null
+++ b/R/FerreiraEx7.4.1.R
@@ -0,0 +1,54 @@
+#' @name FerreiraEx7.4.1
+#' @title Avaliação de Dieta em Animais
+#' @description Dados referentes a um estudo com animais avaliados antes
+#'     e depois de terem sido submetidos a uma dieta balanceada. O
+#'     interesse do estudo é avaliar se houve efeito significativo da
+#'     dieta nas variáveis peso e teor de proteína.
+#'     
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{fase}}{Fator que indica a qual fase do estudo a
+#'     observação pertence. Antes ou depois da dieta.}
+#'
+#' \item{\code{peso}}{Peso do animal.}
+#'
+#' \item{\code{teor}}{Teor de proteína.}
+#'
+#' }
+#' @keywords TODO
+#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
+#'     ed.). Lavras, MG: Editora UFLA. (Exercício 7.4.1 pág. 328)
+#'
+#' @examples
+#' data(FerreiraEx7.4.1)
+#'
+#' aggregate(peso ~ fase, data = FerreiraEx7.4.1, summary)
+#' aggregate(teor ~ fase, data = FerreiraEx7.4.1, summary)
+#' 
+#' by(FerreiraEx7.4.1[2:3], FerreiraEx7.4.1[1], cov)
+#' 
+#' with(FerreiraEx7.4.1, {
+#'      par(mar = c(4, 5, 4, 5))
+#'      plot.default(y = peso, xlab = "", ylab = "",
+#'                   x = jitter(as.numeric(fase), factor = 0.5) - 0.15,
+#'                   xlim = c(0.5, 2.5),
+#'                   col = 4,
+#'                   axes = FALSE)
+#'      box()
+#'      axis(side = 2, col.axis = 4)
+#'      mtext(side = 2, text = "Peso", line = 3, col = 4) 
+#'      par(new = TRUE, mar = c(4, 5, 4, 5))
+#'      plot.default(y = teor, xlab = "", ylab = "",
+#'                   x = jitter(as.numeric(fase), factor = 0.5) + 0.15,
+#'                   xlim = c(0.5, 2.5),
+#'                   col = 2,
+#'                   axes = FALSE)
+#'      axis(side = 4, col.axis = 2)
+#'      axis(side = 1, at = 1:2, labels = c("antes", "depois"))
+#'      mtext(side = 4, text = "Teor da proteína",
+#'            line = 3, col = 2)
+#' })
+#'
+NULL
diff --git a/data-raw/FerreiraEx7.4.1.txt b/data-raw/FerreiraEx7.4.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..2fd11de4b471643b860254fbd0b01cac9afb897e
--- /dev/null
+++ b/data-raw/FerreiraEx7.4.1.txt
@@ -0,0 +1,13 @@
+fase	peso	teor
+antes	250	10
+antes	300	12
+antes	350	13
+antes	320	15
+antes	400	9
+antes	320	11
+depois	280	12
+depois	320	16
+depois	360	13
+depois	380	18
+depois	410	15
+depois	350	12
diff --git a/data/FerreiraEx7.4.1.rda b/data/FerreiraEx7.4.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a156a62f8e1a6e2d5a0fe5d219089ec75e438730
Binary files /dev/null and b/data/FerreiraEx7.4.1.rda differ
diff --git a/man/FerreiraEx7.4.1.Rd b/man/FerreiraEx7.4.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..304d2af19905a87aa2f9ae8d691c72de24de8914
--- /dev/null
+++ b/man/FerreiraEx7.4.1.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/FerreiraEx7.4.1.R
+\name{FerreiraEx7.4.1}
+\alias{FerreiraEx7.4.1}
+\title{Avaliação de Dieta em Animais}
+\format{Um \code{data.frame} com 12 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{fase}}{Fator que indica a qual fase do estudo a
+    observação pertence. Antes ou depois da dieta.}
+
+\item{\code{peso}}{Peso do animal.}
+
+\item{\code{teor}}{Teor de proteína.}
+
+}}
+\source{
+Ferreira, D. F. (2011). Estatística Multivariada (2nd
+    ed.). Lavras, MG: Editora UFLA. (Exercício 7.4.1 pág. 328)
+}
+\description{
+Dados referentes a um estudo com animais avaliados antes
+    e depois de terem sido submetidos a uma dieta balanceada. O
+    interesse do estudo é avaliar se houve efeito significativo da
+    dieta nas variáveis peso e teor de proteína.
+}
+\examples{
+data(FerreiraEx7.4.1)
+
+aggregate(peso ~ fase, data = FerreiraEx7.4.1, summary)
+aggregate(teor ~ fase, data = FerreiraEx7.4.1, summary)
+
+by(FerreiraEx7.4.1[2:3], FerreiraEx7.4.1[1], cov)
+
+with(FerreiraEx7.4.1, {
+     par(mar = c(4, 5, 4, 5))
+     plot.default(y = peso, xlab = "", ylab = "",
+                  x = jitter(as.numeric(fase), factor = 0.5) - 0.15,
+                  xlim = c(0.5, 2.5),
+                  col = 4,
+                  axes = FALSE)
+     box()
+     axis(side = 2, col.axis = 4)
+     mtext(side = 2, text = "Peso", line = 3, col = 4) 
+     par(new = TRUE, mar = c(4, 5, 4, 5))
+     plot.default(y = teor, xlab = "", ylab = "",
+                  x = jitter(as.numeric(fase), factor = 0.5) + 0.15,
+                  xlim = c(0.5, 2.5),
+                  col = 2,
+                  axes = FALSE)
+     axis(side = 4, col.axis = 2)
+     axis(side = 1, at = 1:2, labels = c("antes", "depois"))
+     mtext(side = 4, text = "Teor da proteína",
+           line = 3, col = 2)
+})
+
+}
+\keyword{TODO}
+