From e0c08715b14aad5e8a0d506af5b540bff69134b9 Mon Sep 17 00:00:00 2001
From: Bruna Wundervald <brunadaviesw@gmail.com>
Date: Sun, 6 Mar 2016 20:17:26 -0300
Subject: [PATCH] Adiciona os 3 arquivos das tabelas 12.7 e 12.8 do Zimmermann
---
R/ZimmermannTab12.7.R | 38 +++++++++++++++++++++++++++++++++
R/ZimmermannTab12.8.R | 38 +++++++++++++++++++++++++++++++++
data-raw/ZimmermannTab12.7.txt | 19 +++++++++++++++++
data-raw/ZimmermannTab12.8.txt | 19 +++++++++++++++++
data/ZimmermannTab12.7.rda | Bin 0 -> 437 bytes
data/ZimmermannTab12.8.rda | Bin 0 -> 438 bytes
6 files changed, 114 insertions(+)
create mode 100644 R/ZimmermannTab12.7.R
create mode 100644 R/ZimmermannTab12.8.R
create mode 100644 data-raw/ZimmermannTab12.7.txt
create mode 100644 data-raw/ZimmermannTab12.8.txt
create mode 100644 data/ZimmermannTab12.7.rda
create mode 100644 data/ZimmermannTab12.8.rda
diff --git a/R/ZimmermannTab12.7.R b/R/ZimmermannTab12.7.R
new file mode 100644
index 0000000..34c1c66
--- /dev/null
+++ b/R/ZimmermannTab12.7.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.7
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa área
+#' foliar atacada por brusone (Pyricularia Orizae L.) em
+#' diferentes datas e se calculou área sob a curva do progresso
+#' da doença. Este primeiro experimento foi semeado na densidade
+#' de oitenta sementes por metro. Os dados foram transformados por
+#' logaritmo natural, procurando-se uma maior homogeneização
+#' das variâncias.
+#' @format Um \code{data.frame} com 18 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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 251)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.7)
+#'
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.7,
+#' type=c("p","a"),
+#' xlab = "Tratamentos",
+#' ylab = "Área sob a curva do progresso da doença")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab12.7,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/R/ZimmermannTab12.8.R b/R/ZimmermannTab12.8.R
new file mode 100644
index 0000000..e0a1421
--- /dev/null
+++ b/R/ZimmermannTab12.8.R
@@ -0,0 +1,38 @@
+#' @name ZimmermannTab12.8
+#' @title Dados de área sob a curva do progresso de uma doença
+#' @description Dados de um ensaio cque avaliou as cultivares paraa área
+#' foliar atacada por brusone (Pyricularia Orizae L.) em
+#' diferentes datas e se calculou área sob a curva do progresso
+#' da doença. Este primeiro experimento foi semeado na densidade
+#' de duzentas sementes por metro. Os dados foram transformados por
+#' logaritmo natural, procurando-se uma maior homogeneização
+#' das variâncias.
+#' @format Um \code{data.frame} com 18 observações e 3 variáveis
+#'
+#' \describe{
+#'
+#' \item{trat}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#'
+#' \item{bloco}{Número inteiro que identifica o bloco da observação.}
+#'
+#' \item{prod}{Área sob a curva do progresso de uma doenças.}
+#'
+#' }
+#' @keywords DBC área foliar plantas doença
+#' @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 252)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTab12.8)
+#'
+#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTab12.8,
+#' type=c("p","a"),
+#' xlab = "Tratamentos",
+#' ylab = "Área sob a curva do progresso da doença")
+#'
+#' aggregate(prod ~ trat, data = ZimmermannTab12.8,
+#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+NULL
\ No newline at end of file
diff --git a/data-raw/ZimmermannTab12.7.txt b/data-raw/ZimmermannTab12.7.txt
new file mode 100644
index 0000000..18bd581
--- /dev/null
+++ b/data-raw/ZimmermannTab12.7.txt
@@ -0,0 +1,19 @@
+"trat" "bloco" "prod"
+"Caiapó" 1 5.74616
+"Canastra" 1 6.29754
+"Confiança" 1 6.35712
+"Maravilha" 1 4.92718
+"Primavera" 1 6.26963
+"R. Paranaíba" 1 6.38072
+"Caiapó" 2 6.05715
+"Canastra" 2 6.03998
+"Confiança" 2 5.83999
+"Maravilha" 2 6.03634
+"Primavera" 2 5.91024
+"R. Paranaíba" 2 6.12295
+"Caiapó" 3 6.49288
+"Canastra" 3 6.13508
+"Confiança" 3 5.75745
+"Maravilha" 3 5.44038
+"Primavera" 3 6.47247
+"R. Paranaíba" 3 6.75723
diff --git a/data-raw/ZimmermannTab12.8.txt b/data-raw/ZimmermannTab12.8.txt
new file mode 100644
index 0000000..4091f5c
--- /dev/null
+++ b/data-raw/ZimmermannTab12.8.txt
@@ -0,0 +1,19 @@
+"trat" "bloco" "prod"
+"Caiapó" 1 4.82607
+"Canastra" 1 4.99789
+"Confiança" 1 5.67312
+"Maravilha" 1 4.37519
+"Primavera" 1 6.08142
+"R. Paranaíba" 1 5.94118
+"Caiapó" 2 5.4038
+"Canastra" 2 5.23228
+"Confiança" 2 5.30094
+"Maravilha" 2 5.0411
+"Primavera" 2 5.96179
+"R. Paranaíba" 2 5.86669
+"Caiapó" 3 4.92129
+"Canastra" 3 4.62698
+"Confiança" 3 5.51192
+"Maravilha" 3 4.0582
+"Primavera" 3 4.87302
+"R. Paranaíba" 3 5.08187
diff --git a/data/ZimmermannTab12.7.rda b/data/ZimmermannTab12.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..922dd923e5d25b5f4f617f0b2e1f6553eb493087
GIT binary patch
literal 437
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6&u*2PA}#lhW0!k<4m
z2~Fnd{c=W9Vn%DDki*n7dmN%T)<~o<MDVQWZEO_nxalG8zHx@G`c@s&<q{`^8cvus
zxZIp8Y%I*pm*1xKsKD=xw~n5sSBqD%<@4uDQ`Mfy#?9jhJ@|5V#FU6>Gbb~Ob7-78
z<E!J{`uZX7rC<&QtyA7Md(1Qi&x)=&Y1w(y!2Q77Y13xJOp0eo`OBPS7oc#XK7oNb
zDU+Q|D3k9}#*E!ENB(gftK;r1oL~|mKIhbr6OKmZhwm=ipUQVA`t!9d8`CU2x;*UC
z1b)6$xLLJ3=kq%;cFxt;zMU*jxA4fQ$?*L1^Pr=Rn{LimTXuHN(9H~%SHsvpsxFFu
zwBxUgO4j_dyA~zCR`{8mef)7xKc7&n<IIU4-^(1iDgNilnR`zas$N_^U-tVx-=zNY
zumALXEuWC)|6SDhn*;y7JxA_@M0_xEW{qt47|9eoVanwBbNDA~Xq@tQG;Z9iu|I}C
sjZ4GU$kbtvK1<+<Kk~Ytb_5A|3w^!R)eyBn@CQGGf>8K&Hf9C}05&PVC;$Ke
literal 0
HcmV?d00001
diff --git a/data/ZimmermannTab12.8.rda b/data/ZimmermannTab12.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..96a6a2babadcc71e4d06bfdeac17b97037e5fecf
GIT binary patch
literal 438
zcmb2|=3oE=X6~X+gGXHtk`fXUk`mIA(ioK3*u>Nn4xTu0=m6&u*2PA}#lhW0!k<4m
z2~Fnd{h}iwF{8Cn$YJW4Jq}SEYa~(_B6wExHa3cO-1HE4-#9~8eXEY?a)}c{4JXVR
zTyD-4HWudQ%Wu<qRN!~UTSrgRtHrC>^7-?nscO$;<K}UM9(*}FVoJocnUfjCIW$h4
z@zwEeef^O4QZNUD)+ukBJ!YDMXGPbXwCp@;;C^84v}rS9CdIR){AEtE3sAUGpTNMJ
zl*!H}l*xA~W5#ZomfHDM)iH6;75;p`#Vmi#lP^j7?jx(IO|mS~Jm=SjPc59l(PzKs
z>FgQJKOQPeKRdhQwSv|5vi<IVCD|u#-+pfI<L#varWfbjPTYIL(Z$>6+<u*dj(?8*
z)!M)6E#IT3TZ0d~mRWMF_m7skaPEb|l_Tfwe*WFxEYW}RplEiI49l8ynffbFUMR%;
ze(Y_?-QDc*;cDz`l_M9L&Gik<MaA}<32+oksF`*^MCIud_2-9GxVk<CU+{ULb4veu
u^GqhMeji?e_uP&mM*rQrZPraWGRbA{7NrGZ87%*p8D?GQ@L*$RU;qFWOutnC
literal 0
HcmV?d00001
--
GitLab