From 0ca3a6c9d64c8a6df1dda3341a90182f06d4299a Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sat, 19 Mar 2016 23:09:00 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20dados=20do=20exerc=C3=ADcio=207.4.1?=
=?UTF-8?q?=20do=20Ferreira?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/FerreiraEx7.4.1.R | 54 +++++++++++++++++++++++++++++++
data-raw/FerreiraEx7.4.1.txt | 13 ++++++++
data/FerreiraEx7.4.1.rda | Bin 0 -> 252 bytes
man/FerreiraEx7.4.1.Rd | 60 +++++++++++++++++++++++++++++++++++
4 files changed, 127 insertions(+)
create mode 100644 R/FerreiraEx7.4.1.R
create mode 100644 data-raw/FerreiraEx7.4.1.txt
create mode 100644 data/FerreiraEx7.4.1.rda
create mode 100644 man/FerreiraEx7.4.1.Rd
diff --git a/R/FerreiraEx7.4.1.R b/R/FerreiraEx7.4.1.R
new file mode 100644
index 00000000..59e75f1d
--- /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 00000000..2fd11de4
--- /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
GIT binary patch
literal 252
zcmZ>Y%CIzaj8qGbtmbt4%D`~w|AYT_HyjvPO&Z)81RV9#?;dera1dY-+`w>kZO5f$
zSN;aRG~sE;xa|0fedQ~*q~>5(+ZBgq<t$tvmBGLu9pJH&t$~+;!PZxjf#J#mjaUVj
zNe)@_D~<Ou1o$W<WeM$@dfVDhca{rp+B3aVj9iQU&Q#ngRS?0tYFEa*CohE=1V!CM
zlK$nNx)PSLY*Me{widOvwnOHgom)8O9$cg<p^)M8;zn8Iu@6N?`_?+O&0qGZWZF%Y
zOMhyOj-}pe464>%B^H^vio;?VU**A<1=Co6N2F>R6$+$=+$mYSb>0Gjj_x13CutsP
KX};lQz5)O@1#F!F
literal 0
HcmV?d00001
diff --git a/man/FerreiraEx7.4.1.Rd b/man/FerreiraEx7.4.1.Rd
new file mode 100644
index 00000000..304d2af1
--- /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}
+
--
GitLab