From 066f7b5704eb4f3da001dc0f0a2ac311fd18dbcd Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 23 Jun 2016 23:12:28 -0300
Subject: [PATCH] =?UTF-8?q?Faz=20a=20documenta=C3=A7ao=20de=20dados=20que?=
 =?UTF-8?q?=20estavam=20perdidos.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/ZimmermannTb16.3.R        |  26 +++++++++++++
 R/ZimmermannTb9.22.R        |  62 +++++++++++++++++++++++++++++++
 data-raw/ZimmermannTb16.3.R |  35 ------------------
 data-raw/ZimmermannTb9.22.R |  50 -------------------------
 data/ZimmermannTb9.22.rda   | Bin 0 -> 432 bytes
 man/ZimmermannTb9.22.Rd     |  71 ++++++++++++++++++++++++++++++++++++
 6 files changed, 159 insertions(+), 85 deletions(-)
 create mode 100644 R/ZimmermannTb16.3.R
 create mode 100644 R/ZimmermannTb9.22.R
 delete mode 100644 data-raw/ZimmermannTb16.3.R
 delete mode 100644 data-raw/ZimmermannTb9.22.R
 create mode 100644 data/ZimmermannTb9.22.rda
 create mode 100644 man/ZimmermannTb9.22.Rd

diff --git a/R/ZimmermannTb16.3.R b/R/ZimmermannTb16.3.R
new file mode 100644
index 00000000..06906df4
--- /dev/null
+++ b/R/ZimmermannTb16.3.R
@@ -0,0 +1,26 @@
+#' @name ZimmermannTb16.3
+#' @title Teores de Matéria Orgânica de Solos de Várzea
+#' @description Teores de matéria orgânica de solos aluviais e gely
+#'     húmicos.
+#' @format Um \code{data.frame} com 14 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{solo}}{Tipo de solo, sendo A - aluviais e B - gley
+#'     húmicos.}
+#'
+#' \item{\code{mo}}{Teor de matéria orgânica do solo (\%).}
+#'
+#' }
+#' @keywords TODO
+#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+#'     Feijão. (Tabela 16.3, pág. 337)
+#' @examples
+#'
+#' # Postos.
+#' rank(ZimmermannTb16.3$mo)
+#'
+#' aggregate(mo ~ solo, data = ZimmermannTb16.3, FUN = mean)
+#'
+NULL
diff --git a/R/ZimmermannTb9.22.R b/R/ZimmermannTb9.22.R
new file mode 100644
index 00000000..d3574741
--- /dev/null
+++ b/R/ZimmermannTb9.22.R
@@ -0,0 +1,62 @@
+#' @name ZimmermannTb9.22
+#' @title Fungicidas e Polímero na Infecção de \emph{Fusarium} em
+#'     Sementes
+#' @description Resultados de um experimento fatorial com tratamentos
+#'     adicionais \eqn{3 \times 3 + 2} que estudou o número de sementes
+#'     infectadas por fusaruim em função aplicação de fungicidas às
+#'     sementes e do uso associado de um polímero depois do fungicida ou
+#'     misturado a ele. Os dois tratamentos adicionais era a aplicação
+#'     isolada do polímero e uma testemunha sem qualquer tratamento. O
+#'     experimento foi instalado em delineamento inteiramente
+#'     casualizado.
+#' @format Um \code{data.frame} com 55 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{trat}}{Fator cetegórico que identifica as celas
+#'     experimentais do fatorial com tratamentos adicionais.}
+#'
+#' \item{\code{fung}}{Fator categórico que identifica os níveis dos
+#'     fungicidas aplicados às sementes. Benlate, Captam e Derosal são
+#'     os fungicidas. O polímero puro e uma testemunha também foram
+#'     investigados.}
+#'
+#' \item{\code{aplic}}{Fator categórico que indica a forma de aplicação
+#'     do fungicida em relação ao polímero: antes do polímero, misturado
+#'     com o polímero ou o fungicída puro.}
+#'
+#' \item{\code{nsi}}{Número de sementes infectadas por \emph{fusarium}
+#'     de um total de 40 sementes.}
+#'
+#' }
+#' @keywords DIC binomial
+#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+#'     Feijão. (Tabela 9.22, pág. 188)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTb9.22)
+#' str(ZimmermannTb9.22)
+#'
+#' xtabs(~fung + aplic, ZimmermannTb9.22)
+#'
+#' xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
+#'        xlab = "Tratamentos",
+#'        ylab = "Proporção de sementes infectadas",
+#'        scales = list(x = list(rot = 90)))
+#'
+#' # Gráfico da função arco seno da raíz.
+#' curve(asin(sqrt(x)), from = 0, to = 1)
+#'
+#' # Transformação arco seno da raíz quadrada da proporção.
+#' asin(sqrt(ZimmermannTb9.22$nsi/40))
+#'
+#' # A transformação não elimina os zeros.
+#' xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
+#'        xlab = "Tratamentos",
+#'        ylab = "Arco seno da raíz da proporção",
+#'        scales = list(x = list(rot = 90)))
+#'
+NULL
diff --git a/data-raw/ZimmermannTb16.3.R b/data-raw/ZimmermannTb16.3.R
deleted file mode 100644
index 8bef8fb1..00000000
--- a/data-raw/ZimmermannTb16.3.R
+++ /dev/null
@@ -1,35 +0,0 @@
-#' @name ZimmermannTb16.3
-#' @title Teor de Materia Orgânica em Solos Aluviais
-#' @description Dados de um estudo sobre teoress de matéria orgânica em solos
-#'     aluviais e gley húmicos. Os tipos de solo são: A = solos aluviais e B =
-#'     solos gley húmicos. 
-#'     
-#' @format Um \code{data.frame} com 14 observações e 2 variáveis
-#'
-#' \describe{
-#' 
-#' \item{\code{MO}}{Médias nos ensaios irrigados.}
-#' 
-#' \item{\code{tipo}}{Fator de niveis nominais. Indica o tipo do solo da 
-#'     observaçao. }
-#'
-#' }
-#' @keywords DIC
-#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
-#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 16.3, pág 337)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(ZimmermannTb16.3)
-#'
-#' str(ZimmermannTb16.3)
-#'
-#' xyplot(MO ~ tipo, data = ZimmermannTb16.3,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Tipo de Solo",
-#'        ylab = "Matéria Orgânica",
-#'        main = "Teor de Materia Orgânica em Solos Aluviais",
-#'        scales = list(x = list(rot = 90)))
-NULL
diff --git a/data-raw/ZimmermannTb9.22.R b/data-raw/ZimmermannTb9.22.R
deleted file mode 100644
index 3aace407..00000000
--- a/data-raw/ZimmermannTb9.22.R
+++ /dev/null
@@ -1,50 +0,0 @@
-#' @name ZimmermannTb9.22
-#' @title Sementes Infectadas com Fusarium
-#' @description Dados de um estudo em delineamento completamente ao acaso, num
-#'     esquema fatorial 3x3 + 2. Os tratamentos são: F1 = Benlate, F2 = Captam, 
-#'     F3 = Derosal, Puro = aplicação de um polímero após a aplicação do 
-#'     fungicida e Mistura = aplicação do fungicida em mistura com o polímero. 
-#'     Os dados referem-se ao número de sementes infectadas com \emph{Fusarium},
-#'     em amostras de 40 sementes, e sua transformação. 
-#'     
-#' @format Um \code{data.frame} com 55 observações e 4 variáveis
-#'
-#' \describe{
-#'     
-#' \item{\code{trat}}{Fator de níveis nominais. Identifica o tratamento 
-#'     aplicado.}
-#'     
-#' \item{\code{rept}}{Fator de níveis numéricos. Identifica a repetição da
-#'     observação.}
-#'
-#' \item{\code{sem}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
-#' 
-#' \item{\code{arcsen}}{Transformação da variável resposta 
-#'     (arcseno/(raiz(número)/40)).}
-#'
-#' }
-#' @keywords DIC fatorial
-#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
-#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 9.22, pág 188)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(ZimmermannTb9.22)
-#'
-#' str(ZimmermannTb9.22)
-#'
-#' xyplot(sem ~ trat | rept, data = ZimmermannTb9.22,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Tratamentos",
-#'        ylab = "Quantidade de Sementes",
-#'        main = "Sementes Infectadas com Fusarium",
-#'        scales = list(x = list(rot = 90)))
-#' 
-#' aggregate(sem ~ rept, data = ZimmermannTb9.22,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
-#' 
-#' aggregate(sem ~ trat, data = ZimmermannTb9.22,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
-NULL
diff --git a/data/ZimmermannTb9.22.rda b/data/ZimmermannTb9.22.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ca1cc7570959d2da2cf911c65f9fc57ee4c036cd
GIT binary patch
literal 432
zcmZ>Y%CIzaj8qGbOijsJ!oW1K{>cCT84M1L0t;9eL;~!e-*0eWU{GLSJivHIqmxs^
zZRM|dEBJ#?+AN=Zl}*y$<?^k?R}2_TG8gd7Vs@M$#m2zaYr;6$A;XB-!DY#%v}IDA
za<dv3*qVLvdp8|fHch)<x@1L~s)m%dR#Bo_jZh~`C(CvnmU9nXHVLZBY?prBA*Et%
zwoG?BbL@&eJkG6~d{@l~>s-j&X6kWQAy)UG0pEKrnLXK@oDDJd^F2}@rn2mL<|@>D
zo;_fO!u^M7B@sbc51hO=cB=N=zrEa3bc5!fBmaIG8pH+7u<BwLNpkVf`1xq1OVhp^
zQ#_dBL>q(@SUSSe1rO;e2q}6fcr^a(yu=v6v)X}k-S5D)5_fX0rxbP6em+!VRXFRe
z=>dIq=7ey)mGc>kpIx{VnYk?9cYS^Ru5E@rnp~@SBQ~(JIvhM1`e^B?3%e%#Z763w
z&pZF-nm7p~@nv&U=6sdc{>sH9xxvKBP006Nuh8B%e0T5VHGVuF!*Ph+@>*%*gtE-$
pXI$bOk{0bdU)@`{Kf7Q<=KAvbhq`_;)_-D8iad03oH}vU1OS#JwKf0%

literal 0
HcmV?d00001

diff --git a/man/ZimmermannTb9.22.Rd b/man/ZimmermannTb9.22.Rd
new file mode 100644
index 00000000..0c855f50
--- /dev/null
+++ b/man/ZimmermannTb9.22.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/ZimmermannTb9.22.R
+\name{ZimmermannTb9.22}
+\alias{ZimmermannTb9.22}
+\title{Fungicidas e Polímero na Infecção de \emph{Fusarium} em
+    Sementes}
+\format{Um \code{data.frame} com 55 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{trat}}{Fator cetegórico que identifica as celas
+    experimentais do fatorial com tratamentos adicionais.}
+
+\item{\code{fung}}{Fator categórico que identifica os níveis dos
+    fungicidas aplicados às sementes. Benlate, Captam e Derosal são
+    os fungicidas. O polímero puro e uma testemunha também foram
+    investigados.}
+
+\item{\code{aplic}}{Fator categórico que indica a forma de aplicação
+    do fungicida em relação ao polímero: antes do polímero, misturado
+    com o polímero ou o fungicída puro.}
+
+\item{\code{nsi}}{Número de sementes infectadas por \emph{fusarium}
+    de um total de 40 sementes.}
+
+}}
+\source{
+Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+    agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+    Feijão. (Tabela 9.22, pág. 188)
+}
+\description{
+Resultados de um experimento fatorial com tratamentos
+    adicionais \eqn{3 \times 3 + 2} que estudou o número de sementes
+    infectadas por fusaruim em função aplicação de fungicidas às
+    sementes e do uso associado de um polímero depois do fungicida ou
+    misturado a ele. Os dois tratamentos adicionais era a aplicação
+    isolada do polímero e uma testemunha sem qualquer tratamento. O
+    experimento foi instalado em delineamento inteiramente
+    casualizado.
+}
+\examples{
+
+library(lattice)
+
+data(ZimmermannTb9.22)
+str(ZimmermannTb9.22)
+
+xtabs(~fung + aplic, ZimmermannTb9.22)
+
+xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
+       xlab = "Tratamentos",
+       ylab = "Proporção de sementes infectadas",
+       scales = list(x = list(rot = 90)))
+
+# Gráfico da função arco seno da raíz.
+curve(asin(sqrt(x)), from = 0, to = 1)
+
+# Transformação arco seno da raíz quadrada da proporção.
+asin(sqrt(ZimmermannTb9.22$nsi/40))
+
+# A transformação não elimina os zeros.
+xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
+       xlab = "Tratamentos",
+       ylab = "Arco seno da raíz da proporção",
+       scales = list(x = list(rot = 90)))
+
+}
+\keyword{DIC}
+\keyword{binomial}
+
-- 
GitLab