diff --git a/R/FerreiraEg7.1.R b/R/FerreiraEg7.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..adb5aca6045252c8fca17daee4cfed68285c6619
--- /dev/null
+++ b/R/FerreiraEg7.1.R
@@ -0,0 +1,55 @@
+#' @name FerreiraEg7.1
+#' @title Avaliação de Exercícios Físicos sobre o Estresse Oxidativo
+#' @description Dados observados de um estudo realizado no laboratório
+#' de Bioquímica Clínica do Departamento de Análises Clínicas e
+#' Toxicológicas da Universidade Federal de Alfenas (UNIFAL), no
+#' qual o interesse era testar se a rotina de exercícios físicos
+#' intensos não tem efeito sobre o estresse oxidativo (estresse
+#' causado pelo aumento de radicais livres), no plasma de mulheres
+#' da terceira idade. O estudo consistiu na avaliação de 16 mulheres
+#' da terceira submetidas ao exercício físico durante 4 semanas, as
+#' avaliações ocorreram antes e depois do tratamento com exercícios
+#' físicos.
+#' @format Um \code{data.frame} com 32 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{amostra}}{Fator que indica a qual amostra a observação
+#' pertence, antes ou depois do tratamento com exercícios físicos.}
+#'
+#' \item{\code{proteina}}{Proteínas mensuradas em \eqn{g/dl} (grama por
+#' decilitro).}
+#'
+#' \item{\code{peroxido}}{Peróxidos de protéina mensurados em
+#' \eqn{nmol/dl} (nanomol por decilitro).}
+#'
+#' }
+#' @keywords TODO
+#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
+#' ed.). Lavras, MG: Editora UFLA. (Exemplo 7.1 pág. 286)
+#'
+#' @examples
+#' data(FerreiraEg7.1)
+#'
+#' aggregate(peroxido ~ amostra, data = FerreiraEg7.1, summary)
+#' aggregate(proteina ~ amostra, data = FerreiraEg7.1, summary)
+#'
+#' par(mar = c(4, 5, 4, 5))
+#' boxplot(proteina ~ amostra, data = FerreiraEg7.1,
+#' xlim = c(0.5, 2.5), border = 4,
+#' boxwex = 0.2, at = 1:2 - 0.15,
+#' axes = FALSE)
+#' box()
+#' axis(side = 2, col.axis = 4)
+#' mtext(side = 2, text = "Proteínas em g/dl", line = 3, col = 4)
+#' par(new = TRUE, mar = c(4, 5, 4, 5))
+#' boxplot(peroxido ~ amostra, data = FerreiraEg7.1,
+#' xlim = c(0.5, 2.5), border = 2,
+#' boxwex = 0.2, at = 1:2 + 0.15,
+#' axes = FALSE)
+#' axis(side = 4, col.axis = 2)
+#' axis(side = 1, at = 1:2, labels = c("antes", "depois"))
+#' mtext(side = 4, text = "Peróxidos em nmol/g de proteína",
+#' line = 3, col = 2)
+#'
+NULL
diff --git a/data-raw/FerreiraEg7.1.txt b/data-raw/FerreiraEg7.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e1c1bb4a9309d3ed291decd3782a0829bff2deb5
--- /dev/null
+++ b/data-raw/FerreiraEg7.1.txt
@@ -0,0 +1,33 @@
+amostra proteina peroxido
+antes 6 53
+antes 6 79
+antes 6.9 62
+antes 5.9 74.7
+antes 7 85
+antes 6.3 62.9
+antes 6.5 65.1
+antes 5.9 80.3
+antes 6.8 56
+antes 6.8 47
+antes 7.1 73
+antes 6.8 23
+antes 6.8 52.4
+antes 6.5 87
+antes 6.6 63
+antes 6.6 64.22
+depois 6.6 72.3
+depois 6.5 77
+depois 6.9 56.9
+depois 6.6 67.4
+depois 7 59.1
+depois 6.5 72
+depois 6.7 55
+depois 6 68.1
+depois 7 58.3
+depois 7 72.4
+depois 7.5 59.2
+depois 7 62.1
+depois 6.6 66.8
+depois 6.4 88.7
+depois 7.3 48.3
+depois 6.2 65.57
diff --git a/data/FerreiraEg7.1.rda b/data/FerreiraEg7.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..82da9fec23bbc4ab781ddbcbbf37c2b37cfa6882
Binary files /dev/null and b/data/FerreiraEg7.1.rda differ
diff --git a/man/FerreiraEg7.1.Rd b/man/FerreiraEg7.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..02ca8f8b7e773966ba8bcba5c3dcd04c96fdd9d4
--- /dev/null
+++ b/man/FerreiraEg7.1.Rd
@@ -0,0 +1,62 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/FerreiraEg7.1.R
+\name{FerreiraEg7.1}
+\alias{FerreiraEg7.1}
+\title{Avaliação de Exercícios Físicos sobre o Estresse Oxidativo}
+\format{Um \code{data.frame} com 32 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{amostra}}{Fator que indica a qual amostra a observação
+ pertence, antes ou depois do tratamento com exercícios físicos.}
+
+\item{\code{proteina}}{Proteínas mensuradas em \eqn{g/dl} (grama por
+ decilitro).}
+
+\item{\code{peroxido}}{Peróxidos de protéina mensurados em
+ \eqn{nmol/dl} (nanomol por decilitro).}
+
+}}
+\source{
+Ferreira, D. F. (2011). Estatística Multivariada (2nd
+ ed.). Lavras, MG: Editora UFLA. (Exemplo 7.1 pág. 286)
+}
+\description{
+Dados observados de um estudo realizado no laboratório
+ de Bioquímica Clínica do Departamento de Análises Clínicas e
+ Toxicológicas da Universidade Federal de Alfenas (UNIFAL), no
+ qual o interesse era testar se a rotina de exercícios físicos
+ intensos não tem efeito sobre o estresse oxidativo (estresse
+ causado pelo aumento de radicais livres), no plasma de mulheres
+ da terceira idade. O estudo consistiu na avaliação de 16 mulheres
+ da terceira submetidas ao exercício físico durante 4 semanas, as
+ avaliações ocorreram antes e depois do tratamento com exercícios
+ físicos.
+}
+\examples{
+data(FerreiraEg7.1)
+
+aggregate(peroxido ~ amostra, data = FerreiraEg7.1, summary)
+aggregate(proteina ~ amostra, data = FerreiraEg7.1, summary)
+
+par(mar = c(4, 5, 4, 5))
+boxplot(proteina ~ amostra, data = FerreiraEg7.1,
+ xlim = c(0.5, 2.5), border = 4,
+ boxwex = 0.2, at = 1:2 - 0.15,
+ axes = FALSE)
+box()
+axis(side = 2, col.axis = 4)
+mtext(side = 2, text = "Proteínas em g/dl", line = 3, col = 4)
+par(new = TRUE, mar = c(4, 5, 4, 5))
+boxplot(peroxido ~ amostra, data = FerreiraEg7.1,
+ xlim = c(0.5, 2.5), border = 2,
+ boxwex = 0.2, at = 1:2 + 0.15,
+ axes = FALSE)
+axis(side = 4, col.axis = 2)
+axis(side = 1, at = 1:2, labels = c("antes", "depois"))
+mtext(side = 4, text = "Peróxidos em nmol/g de proteína",
+ line = 3, col = 2)
+
+}
+\keyword{TODO}
+