From 8f8a18b99ec0dee56b16da003b9f434bf0f4135b Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Sat, 19 Mar 2016 22:45:05 -0300
Subject: [PATCH] Adiciona dados do exemplo 7.4 do Ferreira

---
 R/FerreiraEg7.4.R          |  55 +++++++++++++++++++++++++++++++++
 data-raw/FerreiraEg7.4.txt |  12 ++++++++
 data/FerreiraEg7.4.rda     | Bin 0 -> 340 bytes
 man/FerreiraEg7.4.Rd       |  61 +++++++++++++++++++++++++++++++++++++
 4 files changed, 128 insertions(+)
 create mode 100644 R/FerreiraEg7.4.R
 create mode 100644 data-raw/FerreiraEg7.4.txt
 create mode 100644 data/FerreiraEg7.4.rda
 create mode 100644 man/FerreiraEg7.4.Rd

diff --git a/R/FerreiraEg7.4.R b/R/FerreiraEg7.4.R
new file mode 100644
index 00000000..f6ac9767
--- /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 00000000..e5191e52
--- /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
GIT binary patch
literal 340
zcmZ>Y%CIzaj8qGb%r(%?V_?`<|Np;r{YeEznWpaz1`hhm@6T{zU@+idWN=_$V`xy|
zU}D|C@GVJdmgY<6ul|}({IB$=`6zrfN_H~&D%a~~tG@E3k5pIPBA!bOCKneNF*`0+
zcF0`7*wUq<HgAHYR0;#Hks*)b1ctBtSM9FtXgQ<Od7Ryf(StE%8Rr&{i8=?=ZE`jC
zi+}F@HK{XL(f=fGTwCceA5XDaY6<WCH)T9((p(tAa$zm6!jBNH6c@P&w&vzq6>XE*
zLOk=gKkDk0UL)Vdp}=tI+%AzHCNsBWf8Fh$Gp96U&8+MvKABE@922S+RsH+_EX2^a
zb7}pPFYJMDb#!ajh6ii0I%IH2DcXM1wyyFQ;18`#Rb$;*XtO-K!DsW5Q1=wgCfg-8
wKfMx+3@6UoylukI2OkA8pZ(TYROsau6%^`r>s_JpKfNbi1q&5!C4}7p0CcR23;+NC

literal 0
HcmV?d00001

diff --git a/man/FerreiraEg7.4.Rd b/man/FerreiraEg7.4.Rd
new file mode 100644
index 00000000..12db7056
--- /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}
+
-- 
GitLab