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