From e93d9e1725cf73ae30b4ec254ea6dd06e06fb92a Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Mon, 7 Mar 2016 10:17:54 -0300
Subject: [PATCH] Adiciona os 3 arquivos das tabelas 12.13 e 12.14 do
Zimmermann
---
R/ZimmermannTab12.13.R | 37 ++++++++++++++++++++++++++++++++
R/ZimmermannTab12.14.R | 37 ++++++++++++++++++++++++++++++++
data-raw/ZimmermannTab12.13.txt | 36 +++++++++++++++++++++++++++++++
data-raw/ZimmermannTab12.14.txt | 31 ++++++++++++++++++++++++++
data/ZimmermannTab12.13.rda | Bin 0 -> 366 bytes
data/ZimmermannTab12.14.rda | Bin 0 -> 325 bytes
6 files changed, 141 insertions(+)
create mode 100644 R/ZimmermannTab12.13.R
create mode 100644 R/ZimmermannTab12.14.R
create mode 100644 data-raw/ZimmermannTab12.13.txt
create mode 100644 data-raw/ZimmermannTab12.14.txt
create mode 100644 data/ZimmermannTab12.13.rda
create mode 100644 data/ZimmermannTab12.14.rda
diff --git a/R/ZimmermannTab12.13.R b/R/ZimmermannTab12.13.R
new file mode 100644
index 0000000..dffb754
--- /dev/null
+++ b/R/ZimmermannTab12.13.R
@@ -0,0 +1,37 @@
+#' @name ZimmermannTab12.13
+#' @title Dados da proporção de insetos infectados
+#' @description Dados do ensaio 1 de um experimento em DBC que estudou a
+#' patogenicidade de fungos as percevejo do grão de
+#' arroz. A testemunha sem infecção (1) era o tratamento
+#' comum entre os dois experimentos. Os dados se referem
+#' à proporção de percevejos infectados e transformados
+#' por arcoseno da raiz quadrada da proporção.
+#' @format Um \code{data.frame} com 35 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Proporção de insetos infectados.}
+#'
+#' }
+#' @keywords DBC insetos percevejos arroz
+#' @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. (pg 255)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.13)
+#'
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.13,
+#' type=c("p","a"),
+#' xlab = "Tratamentos",
+#' ylab = "Proporção de insetos infectados")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab12.13,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/R/ZimmermannTab12.14.R b/R/ZimmermannTab12.14.R
new file mode 100644
index 0000000..592f084
--- /dev/null
+++ b/R/ZimmermannTab12.14.R
@@ -0,0 +1,37 @@
+#' @name ZimmermannTab12.14
+#' @title Dados da proporção de insetos infectados
+#' @description Dados do ensaio 2 de um experimento em DBC que estudou a
+#' patogenicidade de fungos as percevejo do grão de
+#' arroz. A testemunha sem infecção (1) era o tratamento
+#' comum entre os dois experimentos. Os dados se referem
+#' à proporção de percevejos infectados e transformados
+#' por arcoseno da raiz quadrada da proporção.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Proporção de insetos infectados.}
+#'
+#' }
+#' @keywords DBC insetos percevejos arroz
+#' @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. (pg 255)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.14)
+#'
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.14,
+#' type=c("p","a"),
+#' xlab = "Tratamentos",
+#' ylab = "Proporção de insetos infectados")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab12.14,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.13.txt b/data-raw/ZimmermannTab12.13.txt
new file mode 100644
index 0000000..c450b40
--- /dev/null
+++ b/data-raw/ZimmermannTab12.13.txt
@@ -0,0 +1,36 @@
+"trat" "bloco" "prod"
+1 1 0
+2 1 1.0799
+3 1 0.4909
+4 1 0.6847
+5 1 0.6155
+6 1 0.7854
+7 1 1.0799
+1 2 0
+2 2 1.0799
+3 2 0.4909
+4 2 0.6847
+5 2 0.6155
+6 2 0.7854
+7 2 1.0799
+1 3 0
+2 3 0.7854
+3 3 0.7297
+4 3 0.4909
+5 3 0.5495
+6 3 0.6847
+7 3 0.8691
+1 4 0
+2 4 0.3063
+3 4 0.4637
+4 4 0.5236
+5 4 1.1072
+6 4 0.9553
+7 4 0.8411
+1 5 0
+2 5 0.9553
+3 5 0.3614
+4 5 0.6155
+5 5 0.7137
+6 5 0.3876
+7 5 0.5796
diff --git a/data-raw/ZimmermannTab12.14.txt b/data-raw/ZimmermannTab12.14.txt
new file mode 100644
index 0000000..67a7b6d
--- /dev/null
+++ b/data-raw/ZimmermannTab12.14.txt
@@ -0,0 +1,31 @@
+"trat" "bloco" "prod"
+1 1 0
+9 1 0.8411
+10 1 0.4909
+11 1 0.6155
+12 1 0.5796
+13 1 0.7297
+1 2 0
+9 2 0.9117
+10 2 0.7297
+11 2 0.5796
+12 2 1.1072
+13 2 0.6155
+1 3 0.3218
+9 3 0.5796
+10 3 0.5236
+11 3 0.7854
+12 3 0.7854
+13 3 0.9553
+1 4 0
+9 4 1.5708
+10 4 0.5236
+11 4 0.9117
+12 4 0.5236
+13 4 0.7297
+1 5 0
+9 5 0.8571
+10 5 0.5236
+11 5 0.8571
+12 5 0.4909
+13 5 0.9117
diff --git a/data/ZimmermannTab12.13.rda b/data/ZimmermannTab12.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..74d80087c96c795724b19aeded4f7e5000dedd01
GIT binary patch
literal 366
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6)E)<s6e#lhW0!k<4m
z2~Fnd{le2LDKVq9(MVxwjl-Ip|BZ}1G7<|+*r$j!Tv7^%V)8oe@Z#aRen#CIkEIX4
zP4p_B;K@C~vwMQOvBP2ZV;ld!c$f9@-jiK_|E_r+e)*jBP5auD|2Lnwd-dN(wb*?I
zVxGUJcm4lr6Q|R@a&d&b&!5UC&$vx>Z$J1Y@0XhrymK|b`SY(oL(`v|+Bd%5ZKG|S
zaCo`Y@7>vR`R3P@ANzOk;DpI*<v+c(&lB&jP??$aKkt#N{p-zX-`2-fe(m^mrr~vS
zXMFe-UGq2gT;=ySXLAeBukqi!zi{1wSLJtIe!DBgeteT*Inh+#(0r@J2?kbc<B$nU
zmuPHcS*D<=Zf_~C78o#Pep4D#dSKm7xicbh3TaslJA5SXu6i=(NYac@1IKk!j!bgd
XyG3b1ox*#04rYdhWx=WTEDQ_)n}e%c
literal 0
HcmV?d00001
diff --git a/data/ZimmermannTab12.14.rda b/data/ZimmermannTab12.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..62b0d6eee356ab55dfddbbb8a5b4117311b40475
GIT binary patch
literal 325
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6)E)<s6e#lhW0!k<4m
z2~Fnd{leobAu*%1(MVxwje}15|3*e0nJEjla7_toz9bb8#qGpj`jsc+pW3vt1ciyu
z6efx(OcYb>O>6iieQaa>*Hf$AucWvA{k!IQ_~mofH|_5&IW2xnDf2&viq!eM|29RR
zTW3wnE%=&WIxQ^piN?Vr4`12kiT78i%;dUWpXz3Fd%I>{!B2K}XTNQAC$`tG{1Jct
z@zElSzj=>b?O$(BEBIXRbTsi*;<tl8Uc9TEEB!h9>{;=GN(uRA@+<1L$Q+zCea7r4
zo|J~BiIQ3;f`X<*Fa=MTGI{<S{>d5|r~Dm_8#in0kKs?_(ibo`b%;@E&kHT`OENs8
fHA5lXE6H<FT$Esd{e<uQEsQ@KPbnW~W?%pSoJ^4-
literal 0
HcmV?d00001
--
GitLab