From e1490e81eb1447f30e114ae1dab7d98853f5a837 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 23 Mar 2016 11:00:59 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20documenta=C3=A7=C3=A3o=20e=20passa=20?=
 =?UTF-8?q?trat=20para=20fator.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/ZimmermannTb12.1.R       |  15 +++++++++------
 R/ZimmermannTb12.2.R       |  12 +++++++-----
 R/ZimmermannTb3.12.R       |  31 ++++++++++++++++++-------------
 R/ZimmermannTb3.2.1.R      |  23 ++++++++++++++---------
 data/ZimmermannTb3.12.rda  | Bin 556 -> 596 bytes
 data/ZimmermannTb3.2.1.rda | Bin 328 -> 358 bytes
 6 files changed, 48 insertions(+), 33 deletions(-)

diff --git a/R/ZimmermannTb12.1.R b/R/ZimmermannTb12.1.R
index b1e10e5..8e4d0d4 100644
--- a/R/ZimmermannTb12.1.R
+++ b/R/ZimmermannTb12.1.R
@@ -3,18 +3,19 @@
 #' @description Dados do Ensaio 1 de um experimento em DIC, que estudou
 #'     a produtividade de grãos de arroz em lavoura conduzida com
 #'     inundação contínua durante todo o ciclo. O experimento teve seis
-#'     repetições e sete tratamentos. A unidade de medida não é conhecida. 
+#'     repetições e sete tratamentos.
 #' @format Um \code{data.frame} com 42 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em arroz
-#'      irrigado.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado em
+#'      arroz irrigado.}
 #'
-#' \item{\code{rept}}{Número inteiro que identifica as repetições de cada
-#'     tratamento.}
+#' \item{\code{rept}}{Número inteiro que identifica as repetições de
+#'     cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado}
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado. A unidade de
+#'     medida não é conhecida.}
 #'
 #' }
 #' @keywords DIC
@@ -27,6 +28,7 @@
 #'
 #' data(ZimmermannTb12.1)
 #'
+#' str(ZimmermannTb12.1)
 #'
 #' xyplot(prod ~ trat, data = ZimmermannTb12.1,
 #'        type = c("p", "a"),
@@ -35,4 +37,5 @@
 #'
 #' aggregate(prod ~ trat, data = ZimmermannTb12.1,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#'
 NULL
diff --git a/R/ZimmermannTb12.2.R b/R/ZimmermannTb12.2.R
index 879f650..b8c7c05 100644
--- a/R/ZimmermannTb12.2.R
+++ b/R/ZimmermannTb12.2.R
@@ -4,8 +4,7 @@
 #'     a produtividade de grãos de arroz em lavoura conduzida com
 #'     inundação contínua até a fase de diferenciação do primórdio
 #'     floral e drenada após esta fase. O experimento teve seis
-#'     repetições e sete tratamentos. A unidade de medida não é
-#'     conhecida. 
+#'     repetições e sete tratamentos.
 #' @format Um \code{data.frame} com 42 observações e 3 variáveis
 #'
 #' \describe{
@@ -16,20 +15,23 @@
 #' \item{rept}{Número inteiro que identifica as repetições de cada
 #'     tratamento.}
 #'
-#' \item{prod}{Produção de grãos de arroz irrigado.}
+#' \item{prod}{Produção de grãos de arroz irrigado.  A unidade de medida
+#'     não é conhecida.}
 #'
 #' }
 #' @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. (pg 249)
+#'     Feijão. (Tabela 12.2, pág 249)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb12.2)
 #'
-#' xyplot(prod ~ trat | rept, data = ZimmermannTb12.2,
+#' str(ZimmermannTb12.2)
+#'
+#' xyplot(prod ~ trat, data = ZimmermannTb12.2,
 #'        type = c("p", "a"),
 #'        xlab = "Tratamentos",
 #'        ylab = "Produção de grãos de arroz irrigado")
diff --git a/R/ZimmermannTb3.12.R b/R/ZimmermannTb3.12.R
index 774ed23..bf7f8f2 100644
--- a/R/ZimmermannTb3.12.R
+++ b/R/ZimmermannTb3.12.R
@@ -1,39 +1,44 @@
 #' @name ZimmermannTb3.12
 #' @title Dados de matéria seca em plantas
-#' @description Experimento em DIC, que estudou a produção de matéria
+#' @description Experimento em DIC que estudou a produção de matéria
 #'     seca em plantas, em gramas. No experimento foram utilizados cinco
-#'     vasos, quatro tratamentos e três plantas (parcelas) para cada
-#'     vaso e tratamento.
+#'     vasos para cada um de quatro tratamentos e três plantas para cada
+#'     vaso (parcela).
 #' @format Um \code{data.frame} com 75 observações e 4 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis numéricos. Tratamento aplicado em
-#'     plantas.}
+#' \item{\code{trat}}{Fator de níveis nominais representados por
+#'     inteiros. Tratamento aplicado aos vasos.}
 #'
-#' \item{\code{planta}}{Fator de níveis numéricos.}
+#' \item{\code{planta}}{Fator de níveis numéricos que identifica as
+#'     plantas dentro dos vasos.}
 #'
-#' \item{\code{vaso}}{Fator de níveis numéricos.}
+#' \item{\code{vaso}}{Fator de níveis numéricos que identifica os vasos
+#'     de cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de matéria seca em plantas, em gramas.}
+#' \item{\code{prod}}{Produção de matéria seca das plantas, em gramas.}
 #'
 #' }
 #' @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. (pg 62)
+#'     Feijão. (Table 3.12, pág 62)
 #' @examples
 #'
 #' library(lattice)
 #'
 #' data(ZimmermannTb3.12)
 #'
+#' str(ZimmermannTb3.12)
+#' xtabs(~trat + vaso, data = ZimmermannTb3.12)
+#'
 #' aggregate(prod ~ trat, data = ZimmermannTb3.12,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
-#' xyplot(prod ~ trat | vaso, groups = planta, data = ZimmermannTb3.12,
-#'        type = c("p","a"),
-#'        xlab = "Tratamentos por Vasos",
-#'        ylab = "Produção de matéria seca em plantas (g)")
+#' xyplot(prod ~ trat, groups = vaso, data = ZimmermannTb3.12,
+#'        type = c("p", "a"), jitter.x = TRUE,
+#'        xlab = "Tratamentos",
+#'        ylab = "Produção de matéria seca das plantas (g)")
 #'
 NULL
diff --git a/R/ZimmermannTb3.2.1.R b/R/ZimmermannTb3.2.1.R
index 2c8cd00..afe799e 100644
--- a/R/ZimmermannTb3.2.1.R
+++ b/R/ZimmermannTb3.2.1.R
@@ -1,20 +1,21 @@
 #' @name ZimmermannTb3.2.1
-#' @title Estudo sobre adubação nitrogenada na cultura de arroz e feijão
-#' @description Dados de um experimento em DIC, que visa estudar a
-#'     adubação nitrogenada de arroz irrigado, com 4 tratamentos e 8
+#' @title Estudo sobre adubação nitrogenada na cultura do arroz
+#' @description Dados de um experimento em DIC que visa estudar a
+#'     adubação nitrogenada no arroz irrigado, com 4 tratamentos e 8
 #'     repetições. A resposta observada foi a produção de grãos de arroz
 #'     irrigado, em kg ha\eqn{^{-1}}.
 #' @format Um \code{data.frame} com 24 observações e 3 variáveis
 #'
 #' \describe{
 #'
-#' \item{\code{trat}}{Fator de níveis numéricos. Tratamento aplicado em arroz
-#'      irrigado.}
+#' \item{\code{trat}}{Fator de níveis nominais. Tratamento aplicado ao
+#'      arroz irrigado.}
 #'
-#' \item{\code{rept}}{Número inteiro que identifica as repetições de cada
-#'     tratamento.}
+#' \item{\code{rept}}{Número inteiro que identifica as repetições de
+#'     cada tratamento.}
 #'
-#' \item{\code{prod}}{Produção de grãos de arroz irrigado em kg ha\eqn{^{-1}}.}
+#' \item{\code{prod}}{Produção de grãos de arroz irrigado em kg
+#'     ha\eqn{^{-1}}.}
 #'
 #' }
 #' @keywords DIC
@@ -27,11 +28,15 @@
 #'
 #' data(ZimmermannTb3.2.1)
 #'
+#' str(ZimmermannTb3.2.1)
+#' unstack(x = ZimmermannTb3.2.1, form = prod ~ trat)
+#'
 #' aggregate(prod ~ trat, data = ZimmermannTb3.2.1,
 #'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
 #'
 #'  xyplot(prod ~ trat, data = ZimmermannTb3.2.1,
-#'         type = c("p", "a"),
+#'         type = c("p", "a"), jitter.x = TRUE,
 #'         xlab = "Tratamentos",
 #'         ylab = expression(Produção~de~grãos~(kg~ha^{-1})))
+#'
 NULL
diff --git a/data/ZimmermannTb3.12.rda b/data/ZimmermannTb3.12.rda
index 88d3b2543d4e12060308c3acd137446aafb4f4ea..a8d52381b05bd8231d22738812d1ad379eba6234 100644
GIT binary patch
literal 596
zcmZ>Y%CIzaj8qGbe0tPFhk?1j{{R2)e;6Aa?U;_7FbT0&|2xBpp~ZlMk-<TNjjhv0
z?*HZkOfsz7ZU_Xf5N48)Vwh>5%)oGg<zlbTWzUYwQcOyji{{Og)~Z;{Fw-buhOYsG
zT3hdu3nyQiNVG4Kkuu4U;$@sHASoruz_@HC0|So$gUgaxGfgh5H8fw!kXyiz$jjCs
z#lX1W$eE>o59+pvcCmiUG(LLkslwE&?K&}w&ZwO6?z(?EROZ#yMVytf+96x+hpjp_
zJzeBD*V>PA|F+I{Qi^_hk!81l!Lzj25$8KPv$WRE=(>LP<l%ESx2`_Q&yw39#-Jos
zpvap1T=K1sYHNx?c?QGQi7_WV7I`#!tn^r@bWljaIsUOn+RevT6=rTLl8oi)S}LG1
zah3M#VDH6$k5;oS-M`Mw>+Ou~EA%d~E3@6>yJI{-`v@QFa_0ue-s|_@hIl&HzG_J?
z3{u_oYWmIwhYkjpuSbe?k2y^_;?O_QH))+jSG$;Lp8{h8Pcj2zN~G(}#K|ftzE!);
z8T3?y9Q5-t?waHV{ncp*pX-`;EBLsWW=Cw(@<fXdf)khWtoYfX%^Q5gX+y})2b{|m
zO3Iq4FMe{ck*jN)!Qx=&c_+)~ep<{fQBmT2)U53@%SCI>OAL*_y=2=iRM~|doo%8o
z`m{9U&cFIqanre1FWi4HA@<9Ihx6Xd=F0oaVrFJ(RIS%H%lcFq*NWZC_8)4x<tLYJ
zUtX;*JJp;$`*6htL!)OrWh@&W2dC+ZOX|tbnzG73^w_KkUPh{yJlp^2J?Sb~sCc?-
GLIeP~P62rU

literal 556
zcmZ>Y%CIzaj8qGbJYD?0l!1Bw|NsBL|6y!!v|u`N!X(6A{qGDXh86=3Mg|87HnvV1
zx&NCT82@mo@JuyZam#&D!b~H!S&~Lc8DEXq93*+zmZ|xg+*>4LVv=%kvD++3Ngf5B
z21&MA3=Ane4Fwl2PIl{+%1B8uXfR?(k;-6ToM6Pz>EUv5v9MF-vR+;Wo>@j2mldR#
z-5hv&&6e>WnDLOIn6+a{fYHUKlU~|EM!7E;wuQvxOn=AGIh`TqwNcTn8?((H`dqkj
zG?UR+L+PtgX_o7WE~U6Gy<>jMDj)TBTx*GWA<!*vaXvF5Ecx|C7jK@XDIGdpCr%i$
zHaYL!>ya6KVU?r7?JXywG&L9kdsk?`4(6Nxe$uzPHhb39-Mfkk17a8O=E~kpSH9K}
z9eu!UYwVu&celJ+d-r}wp0wub+9Qh=I4Q6!Vv49Xh~GUubXxqXsj1<4Z>RU}*6e+<
zyOBf4L1O))x2JE;DAvEVKlb;v=o1XPCU}Zz>(_qX)bl1QVd>UrgA3u>lD<2(X0}xx
z_t(`DU%hwXt6PWWRLhiVZYqc||NgIN@9DYo1SFX@&i8t~{noNm><OE0wU#fsUauI_
zx`Crr{+{^ZV-q(sN(rtIGEDiGF!QvY^Vzu$bB?4(Mb|8Hi(lZdGPqLc^v7q)N0zM&
z6>quzGax4Ae~DF%O{B%zmA~ZGo<25tl6qGrv@^QXcgB_&mtA#PK`V|59GMm1Wuz7|
R`JdjCu7ZV%)1KdZ1po+!`uG3<

diff --git a/data/ZimmermannTb3.2.1.rda b/data/ZimmermannTb3.2.1.rda
index 4bf3591584086f54a37b2fad3e4d3e98e1efe16a..363b07ec29191623306824f24eff46e21d5f3959 100644
GIT binary patch
literal 358
zcmZ>Y%CIzaj8qGbJa+lyMh3>|_5c4D=eS;A-J@`YK{UW#{ceK`0|x^WgYsX-1{MJU
zBL~F|j5=b6Lwwq&@G_Y2np}`FVPIfZo7eJ{No~nr6}Gl!WrYh2CKo3QFfi~kxr%)C
z7cydCc3@Uqz}6oiw}2tVwIzIshuMMOdRz9p_La{!PT%+N-07X)tTnh35|{;e8GHCd
z?_LtnQ_Y#%`@Z$aq;2dhjM|%+`?5~#Vv%{J6Sw^yn_FM-y_L&7SY2PRwl&SET0H3p
zN4F=-EGCJNZ#ANyg=TUks!cjr#KbCMAgywtX}5<oL$jB!<bzA0i3cXXn&2qdp#O4#
z=<<~O^XZpnX&uu!BtBO%j9Em=W6eY{4kmNI%C5tm+tyy~;7OU*_p~)GV1t;D;F{{y
zPoJz8at!1@tJS&KBKN3Y<%zuyodwSJ6tX;=|EB7VgGU0hgeHdsOGAS4#-B2b+N<vW
P*gZ+}P)nQHJl_rgtq+X}

literal 328
zcmZ>Y%CIzaj8qGbbTfKh%)mJ5|Nno*Ij$F2cPLz85Dl<bztiBtz`?-8p!}Dyfki;T
z$U)J7ktaKe%S3>20go>)&n$)v2DTag0VZCR>MJrBOc)p#Oc)n1qzHOt&1;fkc93E)
zu@!cF#UN#JLQ3?~&d5mlN#+Wb>vHCNbmyP^=u7c#w)O|}^f)Fom??2^3LkWc;a)#g
z;mXu)8QWI7XqfB!t7Pmt<B%{#IIia76;`hVX}QS?TOS0TX)KuZ%9GPWfX_~{k&{LE
zfO43UKw8T@rV|E@XHW3XT*BmN(7^rq3&U37=i$efo#1meyRJFOn88JvNujl)A(mB@
zVe0x<k%!}p?<@V=em7W5GwS5Q>{mxqIl|Z96PfPQq{Zc9lvufanybVe$4encIBO%9
j`K8D*3T$$4xWs#9)$B7ijM^Ok^qzDTEL7-8J@*U%2PArM

-- 
GitLab