Adiciona dados do exemplo 7.1 do Ferreira

R/FerreiraEg7.1.R

+#' @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

data-raw/FerreiraEg7.1.txt

+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

man/FerreiraEg7.1.Rd

+% 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}
+