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