From 3fb8738f077c7f07bfc6fb649df55e893898e7a0 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 23 Mar 2016 11:48:41 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20documenta=C3=A7=C3=A3o=20e=20transfor?=
=?UTF-8?q?ma=20vari=C3=A1veis.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/ZimmermannTb12.13.R | 28 ++++++++++++++++++----------
R/ZimmermannTb12.14.R | 26 ++++++++++++++++----------
R/ZimmermannTb12.19.R | 22 ++++++++++++++--------
R/ZimmermannTb12.7.R | 27 ++++++++++++++++-----------
R/ZimmermannTb4.11.R | 26 ++++++++++++++------------
R/ZimmermannTb4.4.R | 25 ++++++++++++++++---------
data/ZimmermannTb12.13.rda | Bin 471 -> 505 bytes
data/ZimmermannTb12.14.rda | Bin 406 -> 448 bytes
8 files changed, 94 insertions(+), 60 deletions(-)
diff --git a/R/ZimmermannTb12.13.R b/R/ZimmermannTb12.13.R
index 085004d..3710c0e 100644
--- a/R/ZimmermannTb12.13.R
+++ b/R/ZimmermannTb12.13.R
@@ -1,37 +1,45 @@
#' @name ZimmermannTb12.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
+#' patogenicidade de fungos ao 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
+#' infectados e transformados por arco seno da raiz quadrada da
#' proporção.
#' @format Um \code{data.frame} com 35 observações e 3 variáveis
#'
+#'
#' \describe{
#'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#' arroz.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#' (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#' infectados.}
#'
#' }
#' @keywords DBC proporção
#' @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)
+#' Feijão. (Tab 12.13, pág 255)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.13)
#'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.13,
-#' type=c("p","a"),
+#' str(ZimmermannTb12.13)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.13,
+#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
-#' ylab = "Proporção de insetos infectados")
+#' ylab = "Arco seno da raíz da proporção de insetos infectados")
#'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.13,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.13,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/R/ZimmermannTb12.14.R b/R/ZimmermannTb12.14.R
index ecd62e5..4bc57cd 100644
--- a/R/ZimmermannTb12.14.R
+++ b/R/ZimmermannTb12.14.R
@@ -4,17 +4,20 @@
#' 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
+#' infectados e transformados por arco seno da raiz quadrada da
#' proporção.
-#' @format Um \code{data.frame} com 30 observações e 3 variáveis
-#'
+#' @format Um \code{data.frame} com 35 observações e 3 variáveis
#' \describe{
#'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#' arroz.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Proporção de insetos infectados.}
+#' \item{\code{asinprop}}{Arco seno da raíz quadrada
+#' (\eqn{\arcsin(\sqrt{p})}) da proporção (em radianos) de insetos
+#' infectados.}
#'
#' }
#' @keywords DBC proporção
@@ -27,11 +30,14 @@
#'
#' data(ZimmermannTb12.14)
#'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.14,
-#' type = c("p", "a"),
+#' str(ZimmermannTb12.14)
+#'
+#' xyplot(asinprop ~ trat , groups = bloco, data = ZimmermannTb12.14,
+#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
-#' ylab = "Proporção de insetos infectados")
+#' ylab = "Arco seno da raíz da proporção de insetos infectados")
#'
-#' aggregate(prod ~ trat, data = ZimmermannTb12.14,
+#' aggregate(asinprop ~ trat, data = ZimmermannTb12.14,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/R/ZimmermannTb12.19.R b/R/ZimmermannTb12.19.R
index d17f72f..41f2c23 100644
--- a/R/ZimmermannTb12.19.R
+++ b/R/ZimmermannTb12.19.R
@@ -1,5 +1,5 @@
#' @name ZimmermannTb12.19
-#' @title Dados de produtividade de grãos de feijão
+#' @title Produtividade de feijão em ensaio de competição de cultivares
#' @description Dados do ensaio 1 de um experimento em DBC de competição
#' de cultivares de feijão do grupo preto. Este ensaio foi realizado
#' no município de Senador Canedo (GO). Houveram três cultivares
@@ -10,28 +10,34 @@
#'
#' \describe{
#'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#' plantas.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Produtividade de grãos.}
+#' \item{\code{prod}}{Produtividade de grãos (kg ha\eqn{^{-1}}).}
#'
#' }
#' @keywords DBC
#' @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 258)
+#' Feijão. (Tabela 12.19, pág 258)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.19)
#'
-#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.19,
-#' type = c("p", "a"),
+#' str(ZimmermannTb12.19)
+#'
+#' xyplot(prod ~ trat, data = ZimmermannTb12.19,
+#' groups = bloco, type = "b",
#' xlab = "Tratamentos",
-#' ylab = "Produtividade de grãos")
+#' ylab = "Produtividade de grãos",
+#' scales = list(x = list(rot = 90)))
#'
#' aggregate(prod ~ trat, data = ZimmermannTb12.19,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/R/ZimmermannTb12.7.R b/R/ZimmermannTb12.7.R
index c012a40..6febc25 100644
--- a/R/ZimmermannTb12.7.R
+++ b/R/ZimmermannTb12.7.R
@@ -1,12 +1,12 @@
#' @name ZimmermannTb12.7
-#' @title Dados de área sob a curva do progresso de uma doença
+#' @title Dados de área sob a curva do progresso de brusone
#' @description Dados de um ensaio que avaliou as cultivares para a á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.
-#' A unidade de medida não é conhecida.
+#' foliar atacada por brusone (\emph{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{
@@ -14,26 +14,31 @@
#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
#' plantas.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Área sob a curva do progresso de uma doença.}
+#' \item{\code{prod}}{Logaritmo natural da área sob a curva de progresso
+#' da doença. A unidade de medida não é conhecida.}
#'
#' }
#' @keywords DBC
#' @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)
+#' Feijão. (Tabela 12.7, pág 251)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb12.7)
#'
+#' str(ZimmermannTb12.7)
+#'
#' xyplot(prod ~ trat , groups = bloco, data = ZimmermannTb12.7,
#' type = c("p", "a"),
#' xlab = "Tratamentos",
-#' ylab = "Área sob a curva do progresso da doença")
+#' ylab = "Logaritmo da área sob a curva de progresso da doença")
#'
#' aggregate(prod ~ trat, data = ZimmermannTb12.7,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/R/ZimmermannTb4.11.R b/R/ZimmermannTb4.11.R
index afa463c..9ca1c2d 100644
--- a/R/ZimmermannTb4.11.R
+++ b/R/ZimmermannTb4.11.R
@@ -7,36 +7,38 @@
#'
#' \describe{
#'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
-#' plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado nas
+#' parcelas.}
#'
-#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual amostra
-#' pertence a observação.}
+#' \item{\code{amostra}}{Fator de níveis numéricos. Identifica à qual
+#' amostra pertence a observação.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Altura média de perfilhos.}
+#' \item{\code{prod}}{Altura média de perfilhos (cm).}
#'
#' }
#' @keywords DBC
#' @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 79)
+#' Feijão. (Tabela 4.11, pág 79)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb4.11)
#'
-#' levelplot(prod ~ amostra + bloco,
-#' data = ZimmermannTb4.11, aspect = "iso")
+#' str(ZimmermannTb4.11)
#'
-#' xyplot(prod ~ trat | amostra, groups = bloco,
+#' xyplot(prod ~ trat, groups = bloco,
#' data = ZimmermannTb4.11,
-#' type = c("p", "a"),
+#' type = c("p", "a"), jitter.x = TRUE,
#' xlab = "Tratamentos",
-#' ylab = "Altura média de perfilhos")
+#' ylab = "Altura média de perfilhos (cm)",
+#' scales=list(x=list(rot=90)))
#'
#' aggregate(prod ~ trat, data = ZimmermannTb4.11,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/R/ZimmermannTb4.4.R b/R/ZimmermannTb4.4.R
index 3e5dc40..b32abde 100644
--- a/R/ZimmermannTb4.4.R
+++ b/R/ZimmermannTb4.4.R
@@ -1,35 +1,42 @@
#' @name ZimmermannTb4.4
-#' @title Estudo sobre produtividade de grãos de feijão
+#' @title Competição de cultivares de feijão
#' @description Dados de um ensaio de competição de cultivares, em
#' blocos completos ao acaso, da produção de grãos de feijão em
-#' kg/ha. O experimento teve quinze tratamentos (cultivares e/ou
+#' kg/ha. O experimento teve quinze tratamentos (cultivares e/ou
#' linhagens) e quatro blocos.
#' @format Um \code{data.frame} com 60 observações e 3 variáveis
#'
#' \describe{
#'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em feijão.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#' feijão.}
#'
-#' \item{\code{bloco}}{Número inteiro que identifica o bloco da observação.}
+#' \item{\code{bloco}}{Número inteiro que identifica o bloco da
+#' observação.}
#'
-#' \item{\code{prod}}{Produção de grãos de feijão.}
+#' \item{\code{prod}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
#'
#' }
#' @keywords DBC
#' @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 72)
+#' Feijão. (Tabela 4.4, pág 72)
#' @examples
#'
#' library(lattice)
#'
#' data(ZimmermannTb4.4)
#'
+#' str(ZimmermannTb4.4)
+#'
#' xyplot(prod ~ trat, data = ZimmermannTb4.4,
-#' type = "o", jitter.x = TRUE, groups = bloco,
-#' xlab = "Tratamento", ylab = "Produção de feijão",
-#' main = "Experimento de competição de cultivares")
+#' groups = bloco, type = "o", jitter.x = TRUE,
+#' xlab = "Cultivares",
+#' ylab = expression("Produção de feijão"~(kg~ha^{-1})),
+#' main = "Experimento de competição de cultivares",
+#' scales = list(x = list(rot = 90)))
#'
#' aggregate(prod ~ trat, data = ZimmermannTb4.4,
#' FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
NULL
diff --git a/data/ZimmermannTb12.13.rda b/data/ZimmermannTb12.13.rda
index c7ea8f945d27265fa1a3b0f8b3b4d3b258c76d7d..37f8877d2ca751223ad335b6e49e9ae1b7c38204 100644
GIT binary patch
literal 505
zcmZ>Y%CIzaj8qGboPL1Ahk>!@|NsA=UoFsK-hX4-)zE_d_IF$JSQZ5;Op0vKQh$Bu
z|IZIAH!v1UFne-k*!sBjI8-%U;ALxIYnzqAIB|iARK{h;Wo`W)UwV9B%?n6bwsJC4
z5|0A|+pLTW3=F)?YR%4SKFtCq3=9mnrV9H9$Sq)C;05s*pnyYm&u>jH@upse1dS#Z
zw*#W5nOe-#9#yW;a8+hCV`YqU7ByGoa6P3h(0Y(7;ziwmosN#>x-L9Z=4W^+X-=>y
zYvOcNap;f8Pgd}>_3-FVROLA2`MLk9P<w!gsq~IXkB%fMILu`<5|Z$la9I5e^O^}W
z8+6@RQZ~dIC_U1ARA_4X!iIh4=^};qbq^lAUh(AP+=q@2z89Dk3%QtY<6v}Q7Fm#f
zAkL95&wR&|o16hwdsZD%{I{kpgDq#`$z>colBxIi?{f9vc@(fBhqHO%o6P(!9^aQA
zwtczFb>&D!;H6&e<r$jOq(iOVI!yjoB{C~^qL^mwm0x~$!nPPpPP(|uGgNk~?*ikQ
zD;J2XN}68mYHn7$!q)i6^KfjMd7Wsz_4)R^WajTT{97H18jq|z{j6-~!}AxG+)Q+N
zce4LoqI1fO8G;5TpP42k@O@-rSDwt$>1rUs&RF7MP<pb}AtF^P{?R*+<y=BSKNvY1
E0PX0|V*mgE
literal 471
zcmZ>Y%CIzaj8qGb<on(3z`)pC|NsBzcTaSf_eNa18d|X5{!VKi%c4MqNs$d&>aP#|
z|M_9%2F8dGXHQ?pR~cptco`T>q!=<ME>`QACB@6j@YU8o;6l|bo>{r>6E3c3oXpuE
ztj54-$jrdNpvH1QnSnu=fq_A3%9Z7>+I*KV`^qi2?D&$`#E{qIvYX;!#|gYrM!am!
zK5Y$2w*G2rGu|<=?JaZWln!ZW+~k$;;(0}KrERHrymXd^-u>b=6Ra(~l{kDn9ZhFn
zT5Zt~+>n!*;2E}yF<QcXz1~@s1&q6y1QZk&GU<F2SX^_!;)Y1$Bw6Xs?jVcvZ|6vw
zerA4P8>}k+=0fYsCsk|`ox;=3Op(}>_(C>yi8{lAI(8MswC{B$We+_xeqH61^_#!x
zP|~5wm`}NE3Z_e$9)%neQb<&A_-Q%!Pm<;XrSMcUiC?n)LKD6$DEgp(c*jq+g(l}3
z7U>^7kyFRm)m)h}YpL?lTT;C~$~Qt5depo2I{YqlnH#mUTy(kQsuRC6rlc9qRttU_
z(#`#JqV)saU3-OUk7_neTX$GctkiB-!mPthX)Ou+P8w~nIB;4*$c@#{<z(QBYbie#
dSWIO~$T}4E?`n1}FMCMrNs)(64%Y8v830g-#J~Um
diff --git a/data/ZimmermannTb12.14.rda b/data/ZimmermannTb12.14.rda
index c18dd9682f2b6e285fa427bc1ffb75579da0b5ee..0f19e7b56aeccddbaff4df2897eebd13c7e3b4af 100644
GIT binary patch
literal 448
zcmZ>Y%CIzaj8qGb)Ht~I1OsF8|Ns9#XDu{fuh*CwDq6DN{O%Pu78M7k7Rd$$rDqB^
zekU4kU@R6hF_|=frL;n?v`4NFhe;B%j~eF-x0!4LUzr(A&ic%_A~8wxsiCbxRRaS9
z122QEF9R4%3J6HbkYZrCtiWKz%WwfC#xHVh`6IEMpIiX~Tn<fvLcaw%W@|psxIe>5
zX_mN)6B~m<$pt~q?_!EGB<<^Gs?3!+Xm9GM!{p-8d8#v?U&VXJ)OBBDPP4nTcqO=6
zGuV6A8rig`oh|$|%WTD>Qw|e6g(QR|c_y4}zu~Ali7ioehLO;DHb(!RhaP4ECoT8M
z3ii8Ssi^Z^`eWBA?PmM3Wd=*<hFU&f>^Mob%k$2??~%NhRoVRbrfxCO<!x5KIp-wz
z;oUD!riAeCcpc9a@p|>`2`hj19#CE*nk5<X#Ohiozs2E}@;U*P6|9D=tJdj?pIh$Z
zv(TLPjBak$vf?dg*mh|#=PXHBc>8C#qp{Krwndtkc13s=&2E^^^w#O@Vzyw>M<Fw$
z*p&XNNia*;>3M|6S1wU*dX%7`q~JH3XNtqkT)}&Cu6Mlu#GVv+=;W}NZMy;hsI0Ai
literal 406
zcmZ>Y%CIzaj8qGb-2O8shk-G${{R2ac?(U$O*yWHik9p*zjMWnMa6-sMY2Ib>6yZf
z--(7B7%iM6T}|a?&5|-QVZLI*kisi*C4*NkfPu$UZt<0iZHrU+7#O73+S=M?GDtBn
zT;SzpU@&4}@YHC@xbT%BEr5Z6ftP`o*@1z9!PZp0b`e8XppDiRtImuW?H8H!TG<VY
z)q+n2hwo|8W`Dd(>lkM;Pj7of;a9VkMwRsvp{BR^I<?#wwc5O6@2(bc^NeIT!N#U+
zFky+Yk>E5VmkTr01=1c`ME5qh3wL=p&65@C_Y^tf{3&ozQ36NB6~P3XyJ!6mCRn<5
zl`T2%U6PlU`6<IW(%`z6p3saa?+Gmot2!rfF|yS3l|2#PabWGn7cYdFWp(yMEirPK
z8>A2vqh_Pddi2%K4kPV;Yvmi4ul*G)%bOtGUtY85?t%mz<J*U(zB?7=;<Qe=ZR3Vi
zs~m>M>Oa57IsUL=WBBpM%twGxhwF9w+1-(@j0gP_6qOYHW}Q*!kP_>7rxgF_oyT%6
KA+i6uy$t}4sGEHN
--
GitLab