From 315d08b2ff73fd4fd42fbff6f88dea4723bb4a22 Mon Sep 17 00:00:00 2001 From: Walmes Zeviani <walmes@ufpr.br> Date: Sun, 19 Jun 2016 19:51:11 -0300 Subject: [PATCH] Adiciona dados do Pimentel Cap 18, 20 e 21. --- .RData | Bin 2807 -> 0 bytes R/PimentelPg382.R | 41 +++++++--------- R/PimentelTb18.2.1.R | 71 +++++++++++++++++----------- R/PimentelTb20.2.1.R | 20 ++++---- R/PimentelTb21.5.1.R | 13 ++--- data-raw/PimentelPg382.txt | 11 ++--- data-raw/PimentelTb18.2.1.txt | 86 +++++++++++++++++----------------- data/PimentelPg382.rda | Bin 245 -> 212 bytes data/PimentelTb18.2.1.rda | Bin 454 -> 549 bytes man/PimentelPg382.Rd | 35 ++++++-------- man/PimentelTb18.2.1.Rd | 64 ++++++++++++++++--------- man/PimentelTb20.2.1.Rd | 16 +++---- man/PimentelTb21.5.1.Rd | 9 ++-- 13 files changed, 193 insertions(+), 173 deletions(-) delete mode 100644 .RData diff --git a/.RData b/.RData deleted file mode 100644 index 082ca5154adb9ea1ecb0c4a8afb031db33e9d93e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2807 zcmb2|=3oE==Gw4I6Ontr<$lkr%~w%5WZ)cWzb)tHrk<?}XKq}2Ovp{u&|~7n+&8;Z z^cTCH@Vm+8?B&~b(rBC5=@U}%SJxL?{ry;duJYdZz2|H1RiCf^zpKpcoIqK683Tg@ ze?o#qPdkgjC3!Y02IYpg2E|Qp1pduqtXq(vuYdlq>Gg%0FAA*RZb%E~Nj3DE)t}6H z^{Wy;-}IhLG0nFtmX}D}p3|Xwgem@nUBam&@BLTYJgv<Vqk8?cSZCRc*JhDQ=V~K% z?$EY5b>aT$x$9pn-LvYA&pwOxi?`1Io^WE{w*wn)t-miCe$GikN+@gkMDNqr0xq1r zZ~6RS%KJ63W+#2TH2yEKEVR0DQKvp?NvC+$I?uvajEmR&IkP-1Hty$FW)H>X)tlZ- zx>RamG{O7vub8F2Jd=e!Jl?}7X45CHweQvJ*{RX%?geeoSll_cbkf`x=~A=2tm8k< z;nYct%yW%jbWHHS^QFDT!tzfw4fX&1sMY?z;@e%nr~Kvj7U`=h<fpF?SX^nnVt1_f zm#2#bzpk8@e*M*{&llY5Qc_zkws`IIIAc_z9=BKMVs%~8A5+zh$I>M4$jymt^4_Uq zd7H0$itdJ4YCnUxJa<YjpSwy+csEC%=R40<-L>n#96#UkUqiWfT?|X4Z*|E=0q+&@ z$#;^f^8Z$tDJ*`Wp8wE)U)}j-OM12+Tam07bfNBWZ~woopBrY)pL(bJxW%8vO65!6 z-BS2;>Exn}_ER6V@BdgJb6?rIVN&Q-N8{UE#(^cDrM0ify!p$t<W-r^<lIBMw;Wvd zeb<Gw8Cza527OrQ?Dt(#WNt*sbMK203S5ikb~gWdZ!VxKeQ%2RlSQjJZZA@pFthB@ z&I>{QHL;cZp8M>*@JqNk%Fpfl8I{X9GdM4(3$<m(9m-0*cq&Oh+ah+)m;2nWw%^;} z(CV?;<k}B4gW&(AUg28#Ev}|haziV8s$X~rS4V9>_<XaBB;!A|Mf`i?MGp&2iB@0_ zUg{;pYWaCu+7acVyB)00I9@&#QlI;y>Kd!yp61D&m#T6M^M0&Y#ap;_iI{S;@$tQa zZ6*_TYV{--<&|la<=zzh@^m-%VTn%%cDH`gJF_7<E&O5*dlK^*r$7D{oF@KlH76=h zZeBCP^SRdh%{3-&xBlMnDv_*`&ODzPk!ouz_3&cSQuPILhfC8o<+sMA^qEv_?lue) zi4co_xUK5+#<!Q&PW*VScgAhS`9Bxjv|VbNTV?mi=%MZ<{=_Va)Tc6L8(-}_aQD-R zmD7BlNm!qJBJk5KG~>_(kG}JAZQ1X;t&?Auq_W?7-xTNb_URY@dvl`BE%@wQYwV-H zW}eyUWiyw|o1EY^MMLCG<*y}gKAv{T3lrPx$XEU0lhP}*Z3`c>w159()!KK9!Hapr zI;le~cQb3Ey=R*=&e4BUJ<aHr0~@b?P%+<;k8*(~&YLQCACXnx_D)`xB{O4vjqbX| zvscY{b6~fAsseL@>wJ@EPh6{?T`arv)6TE<@Rq03IAy+EKCSssXsch6z!BG%i#4kA zeYalB`yX;C&S1`V?^~Ca{E%vW*IdQPxHj(L`O~eoMFKZu?y>P5dbu#n@5<xevh^v} z>(}{aeRX}pRx~^9<(q^!j*xiPvQP4|OJ^KqZ>d)m7l?l*;2n0Nrzr8^#yN$%4xbhC z4ObMYh~2%M-}7uv@YeFvmzQZ)Z_}?_>i(~IWe#7+`i)9gZU3%IDan^@+^IJ0(v681 zPlobLK770DYQopTv$5+1vR54O*ODvRaOt4P>$XF7s^I}w5{wS`TGu40cqM$lE$!^8 z%X&b$?qS+4EwS0#KfVq+t(jpQ_BG?&ywda=GBeCpscW*{m|xP6w7N^&?4yh||2%=t zBYN6L6@sgx()le+FMTwt@wJ<{`IDde(>sfFiyntWuzqE`^r<o=^+(1A=_fUN>mC^2 zGF%)p>2UR_zk3X}Y~1RVYa3tuYl`p}?*+3GwHjkm0&CXKY*cQIuzu8VL?%1>!~!`1 zJ-cal7aL}-o0<N=@MWJt)SQ~^Ib18kyo<gr<25J|N?ozA@v+>>Esv*{FY&qXRDh}d zqw6a6ofmWC7IQyhcAOtOFQIhX6+QNk*Cbh)c1ERoO+RdEbfGZmzJc$N=ews_O@AR# zc<<YW7n~cneVd+_F!xmdk`&=m$(7e1x~*{)ER3irJ8{u(LA}<JRzYLEgUSwn_@)Tw z|5<g_f2+#1bES)O@_p?mvkL#*HQ|uR#KnhN6wk>|nfK8+XnT}kQT{`{Il1ODOK+VC zzxL^5koM#io85k_4NPxTnIu+VnB;ox?&ivhYk>#4A{S4-@4>upnu<i;JzF=Gss0`p zB^9+}-WqLOWgI^H_o=H2FDJkHr53(<o@E%{jNCa&rYrBAc`|W<_Ai}?D(O`#51dV( zs~opQ@N;j1Oah}ihmiHguOXIf)sJU!r?y%#pFHF!CU{kAdZ2)$<#nCj%~O{yNmRf8 z<m^=I>dZBVEfmz-6>qN*Nx0_d)1G!a>#)Vv;6tX<vyWMLoR_>l)%@atd->A~-1vf@ zoo2l2oUWfTkNft-KJ%@DtL_Fb;W^gE;=;LfmE*Jr!44eX`0ANr^2<to^_eVK^ju>e z!`YlW%4vSKC*OC)3SLfpwd`&{*}TvHCETW}ekicjVGGSUTl-{R{i>xlwm+`~t&Vwr z?8V}%vpvOaTqbX^tz=VN85zoGH>a5GLGJpc0e6pbTfEGA*KX3cDC%&~r=^}MH&t}^ zSN@&FeM#|3n7EJtC$oVPllbv<Ut%;wUak0;{O`(?jq;KgxToJa$LD;XeY4I1qnBsd zU$1Yx!u_i7ZSK@?E*=i0@M~+X?tjAFv2&mFZ~r5^AI6DnK07VT|B1?%2Mfi7)-~Rh zS##S&g3o1tUa#fJ9b8;heZE0jIeR;97)9_^lt1>Kdc67hVs(k-+pM!s{{HbZb27hT z=`XRWDxtHEx2AcUzl`mRl}K1^qPzNPt@!$-CsgiMpRV^<z5L2k9lLi=Zz~2cmzqD4 zyU;75UXp)uPS`@bw&%9HtL8X1vYz(n-^sgkV(TvJxEt1&)&@SE5yu)>y!E2Vw2QS9 zT1@7q*S?>v#Le1x-^A<LJiFynCU<?f)XF{i{kKZ5n)_QfpH<3Pv1CVC=hM0W=NT!T zx*NwU<z=z<@!xMJm96r$)#u4~xrWNt{ysG|nOSdDTeHo{pVn)?{FCBX_SK*D?}jar zw~f!&h>BR%KD_fd)@#!7evuyms!q$&4?d`J+%awIy|3PR?+vHSd|xY`z~iQOzo&c! zvxjoCVN##p?Xm}ddYaC>y=RmBWA4AwHzBuwoMO1GR1)T-^_TnMj;)#db|k(!`Bs`? z_VVSA_I2s+IlK1G-ye_LBuY6?SqPQyf6O4`8&db+V!@`8Or@)N3MTt%d|LLLT6U*= zS-fsmkNvkL;?1iI8jcnvyXKx{{9N{1^XeUG-j`<<cxSU^YW_O<`rTCS`R}^Yr?A$= zO*!;#MPIdM_sf!uU(?P-^smi%elR05M)zma^)ubwhVif0`P#Lu4%y6OTf1fVcGYW^ z>L2TD9B&@jHmBM)=ae5qnStDw^YQ)1k6k~1+WrVPtE*FpgMfepL&5|5E0T5pf7ez1 zYdaUe=b!lhZ%%wKfBwJXURU)s@JRfkefM|0@_+IBK>hmWd;iZV_TFqiagl#n)&CZ| zTmQD}f02AB(ERKAyZ@K|&ul*_|M0o!pW+Si&VR&S=KK>8`yX!5&eEb#)BHd8n}cH0 zf0O@$H*EzKIVO}}c)0WbjhjtO>l**v`Tm*lg<<={2M-cH8@&Dh<Uhk2OY8O=ZUzPb D8EuBR diff --git a/R/PimentelPg382.R b/R/PimentelPg382.R index fa601bed..8d33f28f 100644 --- a/R/PimentelPg382.R +++ b/R/PimentelPg382.R @@ -1,21 +1,21 @@ #' @name PimentelPg382 -#' @title Experimento de Métodos de Enxertia +#' @title Métodos de Enxertia no Pegamento de Mudas #' @description Experimento com 3 métodos de enxertia em que haviam 200 -#' enxertos para cada método e pegaram 180, 150 e 145 desses -#' enxertos, respectivamente. O resultado, traduzido por -#' frequências, pode ser expresso em porcentagens, que devem ser -#' comparadas. -#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que +#' estacas para cada método e pegaram 180, 150 e 145 desses +#' enxertos, respectivamente. +#' @format Um \code{data.frame} com 3 observações e 3 variáveis, em que #' #' \describe{ #' -#' \item{\code{metod}}{Fator de 3 níveis qualitativos, que são os -#' métodos de enxertia.} +#' \item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos +#' de enxertia das estacas.} #' -#' \item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os -#' Enxertos Pegados e os Enxertos Mortos.} +#' \item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não +#' pegaram com a enxertia, de um total de 200 estacas.} #' -#' \item{\code{freq}}{Totais de frequências.} +#' \item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram +#' com a enxertia, de um total de 200 estacas. A soma das vivas com +#' as mortas é 200, portanto.} #' #' } #' @keywords DIC @@ -27,15 +27,10 @@ #' #' data(PimentelPg382) #' str(PimentelPg382) -#' -#' xyplot(freq ~ metod, -#' groups = enxerto, -#' type = "o", -#' auto.key = list(title = "Enxerto", -#' cext.tile = 1, -#' columns = 2), -#' data = PimentelPg382, -#' ylab = "Frequência", -#' xlab = "Método de Enxertia") -#' -NULL \ No newline at end of file +#' +#' barchart(morta + viva ~ metod, data = PimentelPg382, +#' stack = TRUE, auto.key = TRUE, +#' xlab = "Método de enxertia", +#' ylab = "Quantidade de estacas") +#' +NULL diff --git a/R/PimentelTb18.2.1.R b/R/PimentelTb18.2.1.R index 413104b1..f5dda230 100644 --- a/R/PimentelTb18.2.1.R +++ b/R/PimentelTb18.2.1.R @@ -1,29 +1,45 @@ #' @name PimentelTb18.2.1 -#' @title Ensaio de Adubação de Milho -#' @description Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com -#' N, P e K, com confundimento de 2 graus de liberdade da interação -#' tripla. A cada três blocos de 9 parcelas juntaram-se 5 -#' tratamentos adicionais. -#' @format Um \code{data.frame} com 42 observações e 3 variáveis, em que +#' @title Ensaio Fatorial com Tratamentos Adicionais de Adubação de +#' Milho +#' @description Ensaio de adubação NPK de milho, fatorial de +#' \eqn{3^{3}}, com confundimento de 2 graus de liberdade da +#' interação tripla. A cada três blocos de 9 parcelas juntaram-se +#' mais 5 com tratamentos adicionais combinando calcário e +#' micronutrientes. +#' @format Um \code{data.frame} com 42 observações e 8 variáveis, em que #' #' \describe{ #' #' \item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para -#' controle local.} +#' controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e +#' 5 da porção adicional.} #' #' \item{\code{trat}}{Fator de 30 níveis qualitativos, que são os #' tratamentos aplicados em cada parcela, sendo que cada algarismo -#' possui um significado diferente conforme sua posição: A posição -#' 1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de -#' Fósforo; A posição 3 indica os níveis de Potássio; A posição 4 -#' (após o hífen) indica uma possível adição de Calcário; E a -#' posição 5 (após o hífen) indica uma possível adição de -#' micronutrientes.} +#' possui um significado diferente conforme sua posição: A posição 1 +#' indica os níveis de nitrogênio, a posição 2 indica os níveis de +#' fósforo e a posição 3 indica os níveis de potássio. A letra C +#' indica a adição de calcário e M a adição de micronutrientes.} #' -#' \item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.} +#' \item{\code{N}}{Fator de níveis codificados que representa a dose de +#' nitrogênio.} +#' +#' \item{\code{P}}{Fator de níveis codificados que representa a dose de +#' fósforo.} +#' +#' \item{\code{K}}{Fator de níveis codificados que representa a dose de +#' potássio.} +#' +#' \item{\code{calc}}{Fator de níveis codificados que indica a presença +#' (1) ou ausência de calcário.} +#' +#' \item{\code{micro}}{Fator de níveis codificados que indica a presença +#' (1) ou ausência de micronutrientes.} +#' +#' \item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.} #' #' } -#' @keywords FAT3 +#' @keywords FAT3 adicional #' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental #' (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330) #' @examples @@ -32,15 +48,16 @@ #' #' data(PimentelTb18.2.1) #' str(PimentelTb18.2.1) -#' -#' xyplot(prod ~ trat, -#' groups = bloc, -#' auto.key = list(title = "Blocos", -#' cex.title = 1, -#' columns = 3), -#' data = PimentelTb18.2.1, -#' type = c("a", "p"), -#' ylab = "Produção de Milho (em kg/ha)", -#' xlab = "Tratamento") -#' -NULL \ No newline at end of file +#' +#' xtabs(~trat + bloc, data = PimentelTb18.2.1) +#' +#' xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1, +#' layout = c(NA, 1), type = c("p", "a"), +#' xlab = "Nitrogênio (codificado)", +#' ylab = expression("Produção de milho"~(ka~ha^{-1})), +#' auto.key = list(title = "Potássio (codificado)", +#' cex.title = 1.1, columns = 3), +#' strip = strip.custom(strip.names = TRUE, +#' var.name = "Fósforo")) +#' +NULL diff --git a/R/PimentelTb20.2.1.R b/R/PimentelTb20.2.1.R index 27e11475..6e9428ad 100644 --- a/R/PimentelTb20.2.1.R +++ b/R/PimentelTb20.2.1.R @@ -12,7 +12,8 @@ #' \item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada #' parcela.} #' -#' \item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.} +#' \item{\code{totais}}{Produção total nos 6 blocos, em ton +#' ha\eqn{^{-1}}. Valores individuais não disponíveis.} #' #' } #' @keywords FAT2 @@ -24,15 +25,12 @@ #' #' data(PimentelTb20.2.1) #' str(PimentelTb20.2.1) -#' -#' xyplot(totais ~ P, -#' groups = K, -#' type = "o", +#' +#' xyplot(totais ~ P, data = PimentelTb20.2.1, +#' groups = K, type = "o", #' auto.key = list(title = "Níveis de Potássio (K)", -#' cext.tile = 1, -#' columns = 3), -#' data = PimentelTb20.2.1, -#' ylab = "Totais de Tratamentos (em t/ha)", -#' xlab = "Níveis de Fósforo (P)") +#' cex.title = 1.1, columns = 3), +#' ylab = "Totais de tratamentos (ton/ha)", +#' xlab = "Níveis de fósforo (P)") #' -NULL \ No newline at end of file +NULL diff --git a/R/PimentelTb21.5.1.R b/R/PimentelTb21.5.1.R index 47eb706d..58eac7df 100644 --- a/R/PimentelTb21.5.1.R +++ b/R/PimentelTb21.5.1.R @@ -1,8 +1,9 @@ #' @name PimentelTb21.5.1 #' @title Porcentagem de Plantas Doentes -#' @description Ensaio inteiramente casualizado relativo à porcentagem -#' de plantas doentes em um experimento de tomateiros, em que foi -#' aplicado o teste de Kruskal-Wallis. +#' @description Ensaio inteiramente casualizado para avaliar a +#' porcentagem de plantas doentes em um experimento de tomateiros +#' onde foi estudado um fator de 3 níveis. Para análise dos +#' resultados pode-se considerar o de Kruskal- Wallis. #' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que #' #' \describe{ @@ -23,11 +24,11 @@ #' #' data(PimentelTb21.5.1) #' str(PimentelTb21.5.1) -#' +#' #' xyplot(doentes ~ trat, #' data = PimentelTb21.5.1, #' type = c("a", "p"), -#' ylab = "Porcentagem de Plantas Doentes", +#' ylab = "Porcentagem de plantas doentes", #' xlab = "Tratamento") #' -NULL \ No newline at end of file +NULL diff --git a/data-raw/PimentelPg382.txt b/data-raw/PimentelPg382.txt index 6affdf36..affe6c62 100644 --- a/data-raw/PimentelPg382.txt +++ b/data-raw/PimentelPg382.txt @@ -1,7 +1,4 @@ -metod enxerto freq -A pegado 180 -B pegado 150 -C pegado 144 -A morto 20 -B morto 50 -C morto 56 +metod morta viva +A 20 180 +B 50 150 +C 56 144 diff --git a/data-raw/PimentelTb18.2.1.txt b/data-raw/PimentelTb18.2.1.txt index 82559ee5..edabb753 100644 --- a/data-raw/PimentelTb18.2.1.txt +++ b/data-raw/PimentelTb18.2.1.txt @@ -1,43 +1,43 @@ -bloc trat prod -1 000-00 981 -1 012-00 1216 -1 021-00 1183 -1 101-00 1213 -1 110-00 1028 -1 122-00 1574 -1 202-00 1111 -1 211-00 1333 -1 220-00 1775 -2 001-00 1213 -2 010-00 1510 -2 022-00 901 -2 102-00 1404 -2 111-00 1602 -2 120-00 1214 -2 200-00 1221 -2 212-00 1694 -2 221-00 1593 -3 002-00 808 -3 011-00 942 -3 020-00 998 -3 100-00 1327 -3 112-00 1019 -3 121-00 1401 -3 201-00 1120 -3 210-00 1444 -3 222-00 1343 -1 000-00 1290 -1 111-00 1314 -1 111-10 1296 -1 111-01 1237 -1 111-11 1324 -2 000-00 1039 -2 111-00 680 -2 111-10 1324 -2 111-01 1333 -2 111-11 1079 -3 000-00 947 -3 111-00 1178 -3 111-10 947 -3 111-01 1241 -3 111-11 949 +bloc trat N P K calc micro prod +1 000 0 0 0 0 0 981 +1 012 0 1 2 0 0 1216 +1 021 0 2 1 0 0 1183 +1 101 1 0 1 0 0 1213 +1 110 1 1 0 0 0 1028 +1 122 1 2 2 0 0 1574 +1 202 2 0 2 0 0 1111 +1 211 2 1 1 0 0 1333 +1 220 2 2 0 0 0 1775 +2 001 0 0 1 0 0 1213 +2 010 0 1 0 0 0 1510 +2 022 0 2 2 0 0 901 +2 102 1 0 2 0 0 1404 +2 111 1 1 1 0 0 1602 +2 120 1 2 0 0 0 1214 +2 200 2 0 0 0 0 1221 +2 212 2 1 2 0 0 1694 +2 221 2 2 1 0 0 1593 +3 002 0 0 2 0 0 808 +3 011 0 1 1 0 0 942 +3 020 0 2 0 0 0 998 +3 100 1 0 0 0 0 1327 +3 112 1 1 2 0 0 1019 +3 121 1 2 1 0 0 1401 +3 201 2 0 1 0 0 1120 +3 210 2 1 0 0 0 1444 +3 222 2 2 2 0 0 1343 +1 000 0 0 0 0 0 1290 +1 111 1 1 1 0 0 1314 +1 111+C 1 1 1 1 0 1296 +1 111+M 1 1 1 0 1 1237 +1 111+C+M 1 1 1 1 1 1324 +2 000 0 0 0 0 0 1039 +2 111 1 1 1 0 0 680 +2 111+C 1 1 1 1 0 1324 +2 111+M 1 1 1 0 1 1333 +2 111+C+M 1 1 1 1 1 1079 +3 000 0 0 0 0 0 947 +3 111 1 1 1 0 0 1178 +3 111+C 1 1 1 1 0 947 +3 111+M 1 1 1 0 1 1241 +3 111+C+M 1 1 1 1 1 949 diff --git a/data/PimentelPg382.rda b/data/PimentelPg382.rda index 2028472ff2e4387bbf00f0924da26e6059a02705..353f8c60efa1dbf121a63f42a1db54fa6cca8451 100644 GIT binary patch literal 212 zcmZ>Y%CIzaj8qGb{FN?#gn?ml{fqxbJ`4<u5)L*D0S@}h=QcPnI5My>Ffeam*qP&U ziLIA`fx+a0+(MCCy;8Q03m6!f6$~9$%w$}Ua=|2n?UL=I7NI%ERT+ZCgnb<Lh1&jD zC~KOiQN3%9>4c;Pu3E8E;$|8R+{%10w@$=8h-l7a74lM4VPcUIU|`N=JlJU165zgZ z>&8_+>ozZU6=bid;k&Z)q{>GQCYzuGzpD!MdjyzxE;6b~T+>~t<R=xD)KXIJJtN9? Sj_jY<lOhkDoL|m~7XScH=StN8 literal 245 zcmZ>Y%CIzaj8qGbeE;s^RtAQH|6lyy<io(gDB)nk5a6J{{O<t=21f=K1_r?m3^yiR zxg5wJd@9M-eFcx=Rw*ePj|7tx6A1?sW?u$|i2_}@4i_#vPT&uAR-3s}Fw12IPyR%s zEym$opLXi+74_AfldPF+zxnHj$Cr1jx5aiUFMOWSm9}vGu^o4pm;DrAeJl3)%hoGf zSl+Z239eyW(zvkMCv*z~o6QH00~~uiO`d(rk1{yEdi^1b)-Mggdrb<W62(0JZB}-c zQ_RU%n(}h7k~CY>46`L{0V{9GD5V8lo9kTFc!k^M{7xB(B%jIu^qzDTEL6OIcX1W~ D-t=jx diff --git a/data/PimentelTb18.2.1.rda b/data/PimentelTb18.2.1.rda index d83da07d9dfb51b734500a7f5ab7c471237bf504..7936b4cad3ed6d585b83352d48df893fc9b7826e 100644 GIT binary patch literal 549 zcmZ>Y%CIzaj8qGbTxi<K!ockL9}EOze?6GP9de*v{q7Pc1_r?vM=oY324)3Dh6c_9 zjDOsYoH6NKl#(=CDRZl>+m%lZCX5ST**fqtJ6v2KkyY0vy8LCZstNlF1_lNONd^W6 zwq~^kb}31d%W4g59L$cB9T-k7U|>i&!PcbGl_~7(zT_(}vjYRO123Bcg9!tJ+YAFf zULjr4fK^Na9F8l*yKbo{xMw-}Je=la6x++f$#CQOePyvHJe7+qyDWD_Gjq57Qkzm% z*%<k|=k3x@&MYUNthh1bXn#~`Ph!lMNcDNus>kC`ZDbKRD$LU$CvMgA^$HV1mvYE? z3l=BVt#1`NgmP}}nHzuhSTjR@eDPkXiOYG4+&}G*NIhuobMnH1z56OP)I^)-Wd<zw zebeG;a!Ta=oCXEgSxGETGH1B#=f%l>>;QR`L8_$gRh6|)_1s6_Hl(GVVmQefZ@;R| zS()*F)r%Yhj>{gWoTf~0a>);xBV?w;YACF`!bMkv<=5F-u5dw_z<jogQrEXOTqt^E z`0L90N%tZe7=&l4%v6~*b&4VbLp8s`N%c)7X_cG`v+qn3aA3JSX;PS{T9xPGke5ql z+Ra|SrXX=^UYJ>doQ~7cBdzDpYW+Ml_x_s=t26V8CyO?}irn>9b%9f_gxSFfZ<S4W z{bsCcTYlu&T;UhnLa+0zTCLlw5w<EtkwIfp-O{&R$sCD|`9F3~(md4C%DKiv0RZ&u B-`@ZL literal 454 zcmZ>Y%CIzaj8qGb^y$x^!N3$*{~rVd!+$-P!Vq$xUj6P8Ck6(=7Dp~-CkAE(MurB? z4UDtYjCqBsmV6Gm=`U0@)8xcuWd(*47c!(wE->(#b^g)_U->I2tF3_n4md@cdVHDH z8cY~2Ft9Z+@G>wfBppyraGJ{$)Nt(i$^_oV*4$zfj$<qD9!iuEb4yHfVE7|o%6ZQE zqQ|CrAH64}8GHH#YD~5^(hB*a6|y>Ni=}G4<oPe_96CZQwuEr7Ez7-?c65DN&Vx-K zs@u80UoN}*<L#%9H9G<yA6Ad)S$BK-t~J|EZTPV<DXcocdl^TUr%2GH0EUi@v%H0^ zw%FVL?7GPm=DQ(~>x@HpNQ>De4=E|nWeT&N8Myce3BLNBtI)~D(#uj9P#EAIoO!6L z%K_{$fyVnU|5`3tF3Kv|z}^(#yUQzR%97c+71u7hBs(y;`u1f7O<A;*<=FKtuTw1> zSS_qlZfEIkov`7TvU_vTGqpDfp%O>$Ke)BS(Cqk&R;%NwfxdGzjGj#j&b-NEKBark w2MYy3mHq47wpxWK3I}B$I@&oit)s!j;heGCl1hh@sY?IFi(D-NCV=7%0GIy0g#Z8m diff --git a/man/PimentelPg382.Rd b/man/PimentelPg382.Rd index af79d981..bc188bf6 100644 --- a/man/PimentelPg382.Rd +++ b/man/PimentelPg382.Rd @@ -2,18 +2,20 @@ % Please edit documentation in R/PimentelPg382.R \name{PimentelPg382} \alias{PimentelPg382} -\title{Experimento de Métodos de Enxertia} -\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que +\title{Métodos de Enxertia no Pegamento de Mudas} +\format{Um \code{data.frame} com 3 observações e 3 variáveis, em que \describe{ -\item{\code{metod}}{Fator de 3 níveis qualitativos, que são os - métodos de enxertia.} +\item{\code{metod}}{Fator de 3 níveis qualitativos que são os métodos + de enxertia das estacas.} -\item{\code{enxerto}}{Fator de 2 níveis qualitativos, que indica os - Enxertos Pegados e os Enxertos Mortos.} +\item{\code{morta}}{Quantidade de estacas mortas, ou seja, que não + pegaram com a enxertia, de um total de 200 estacas.} -\item{\code{freq}}{Totais de frequências.} +\item{\code{viva}}{Quantidade de estacas vivas, ou seja, que pegaram + com a enxertia, de um total de 200 estacas. A soma das vivas com + as mortas é 200, portanto.} }} \source{ @@ -22,10 +24,8 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental } \description{ Experimento com 3 métodos de enxertia em que haviam 200 - enxertos para cada método e pegaram 180, 150 e 145 desses - enxertos, respectivamente. O resultado, traduzido por - frequências, pode ser expresso em porcentagens, que devem ser - comparadas. + estacas para cada método e pegaram 180, 150 e 145 desses + enxertos, respectivamente. } \examples{ @@ -34,15 +34,10 @@ library(lattice) data(PimentelPg382) str(PimentelPg382) -xyplot(freq ~ metod, - groups = enxerto, - type = "o", - auto.key = list(title = "Enxerto", - cext.tile = 1, - columns = 2), - data = PimentelPg382, - ylab = "Frequência", - xlab = "Método de Enxertia") +barchart(morta + viva ~ metod, data = PimentelPg382, + stack = TRUE, auto.key = TRUE, + xlab = "Método de enxertia", + ylab = "Quantidade de estacas") } \keyword{DIC} diff --git a/man/PimentelTb18.2.1.Rd b/man/PimentelTb18.2.1.Rd index d2d129bd..abce79d9 100644 --- a/man/PimentelTb18.2.1.Rd +++ b/man/PimentelTb18.2.1.Rd @@ -2,24 +2,39 @@ % Please edit documentation in R/PimentelTb18.2.1.R \name{PimentelTb18.2.1} \alias{PimentelTb18.2.1} -\title{Ensaio de Adubação de Milho} -\format{Um \code{data.frame} com 42 observações e 3 variáveis, em que +\title{Ensaio Fatorial com Tratamentos Adicionais de Adubação de + Milho} +\format{Um \code{data.frame} com 42 observações e 8 variáveis, em que \describe{ \item{\code{bloc}}{Fator de 3 níveis qualitativos, usado para - controle local.} + controle local. Os blocos tem 14 parcelas, 9 da porção fatorial e + 5 da porção adicional.} \item{\code{trat}}{Fator de 30 níveis qualitativos, que são os tratamentos aplicados em cada parcela, sendo que cada algarismo - possui um significado diferente conforme sua posição: A posição - 1 indica os níveis de Nitrogênio; A posição 2 indica os níveis de - Fósforo; A posição 3 indica os níveis de Potássio; A posição 4 - (após o hífen) indica uma possível adição de Calcário; E a - posição 5 (após o hífen) indica uma possível adição de - micronutrientes.} + possui um significado diferente conforme sua posição: A posição 1 + indica os níveis de nitrogênio, a posição 2 indica os níveis de + fósforo e a posição 3 indica os níveis de potássio. A letra C + indica a adição de calcário e M a adição de micronutrientes.} -\item{\code{prod}}{Produção de milho, em \eqn{kg.ha^{-1}}.} +\item{\code{N}}{Fator de níveis codificados que representa a dose de + nitrogênio.} + +\item{\code{P}}{Fator de níveis codificados que representa a dose de + fósforo.} + +\item{\code{K}}{Fator de níveis codificados que representa a dose de + potássio.} + +\item{\code{calc}}{Fator de níveis codificados que indica a presença + (1) ou ausência de calcário.} + +\item{\code{micro}}{Fator de níveis codificados que indica a presença + (1) ou ausência de micronutrientes.} + +\item{\code{prod}}{Produção de milho, em kg ha\eqn{^{-1}}.} }} \source{ @@ -27,10 +42,11 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental (15th ed.). Piracicaba, SP: FEALQ. (Tabela 18.2.1, pág. 330) } \description{ -Ensaio de adubação de milho, fatorial de \eqn{3^{3}} com - N, P e K, com confundimento de 2 graus de liberdade da interação - tripla. A cada três blocos de 9 parcelas juntaram-se 5 - tratamentos adicionais. +Ensaio de adubação NPK de milho, fatorial de + \eqn{3^{3}}, com confundimento de 2 graus de liberdade da + interação tripla. A cada três blocos de 9 parcelas juntaram-se + mais 5 com tratamentos adicionais combinando calcário e + micronutrientes. } \examples{ @@ -39,16 +55,18 @@ library(lattice) data(PimentelTb18.2.1) str(PimentelTb18.2.1) -xyplot(prod ~ trat, - groups = bloc, - auto.key = list(title = "Blocos", - cex.title = 1, - columns = 3), - data = PimentelTb18.2.1, - type = c("a", "p"), - ylab = "Produção de Milho (em kg/ha)", - xlab = "Tratamento") +xtabs(~trat + bloc, data = PimentelTb18.2.1) + +xyplot(prod ~ N | factor(P), groups = K, data = PimentelTb18.2.1, + layout = c(NA, 1), type = c("p", "a"), + xlab = "Nitrogênio (codificado)", + ylab = expression("Produção de milho"~(ka~ha^{-1})), + auto.key = list(title = "Potássio (codificado)", + cex.title = 1.1, columns = 3), + strip = strip.custom(strip.names = TRUE, + var.name = "Fósforo")) } \keyword{FAT3} +\keyword{adicional} diff --git a/man/PimentelTb20.2.1.Rd b/man/PimentelTb20.2.1.Rd index 0e68da5f..89ca4882 100644 --- a/man/PimentelTb20.2.1.Rd +++ b/man/PimentelTb20.2.1.Rd @@ -13,7 +13,8 @@ \item{\code{K}}{Variável que indica os níveis de Potássio (K) em cada parcela.} -\item{\code{totais}}{Totais dos tratamentos em \eqn{t.ha^{-1}}.} +\item{\code{totais}}{Produção total nos 6 blocos, em ton + ha\eqn{^{-1}}. Valores individuais não disponíveis.} }} \source{ @@ -31,15 +32,12 @@ library(lattice) data(PimentelTb20.2.1) str(PimentelTb20.2.1) -xyplot(totais ~ P, - groups = K, - type = "o", +xyplot(totais ~ P, data = PimentelTb20.2.1, + groups = K, type = "o", auto.key = list(title = "Níveis de Potássio (K)", - cext.tile = 1, - columns = 3), - data = PimentelTb20.2.1, - ylab = "Totais de Tratamentos (em t/ha)", - xlab = "Níveis de Fósforo (P)") + cex.title = 1.1, columns = 3), + ylab = "Totais de tratamentos (ton/ha)", + xlab = "Níveis de fósforo (P)") } \keyword{FAT2} diff --git a/man/PimentelTb21.5.1.Rd b/man/PimentelTb21.5.1.Rd index c20924e3..9c6c2b07 100644 --- a/man/PimentelTb21.5.1.Rd +++ b/man/PimentelTb21.5.1.Rd @@ -19,9 +19,10 @@ Pimentel-Gomes, F. (2009). Curso de Estatística Experimental (15th ed.). Piracicaba, SP: FEALQ. (Tabela 21.5.1, pág. 384) } \description{ -Ensaio inteiramente casualizado relativo à porcentagem - de plantas doentes em um experimento de tomateiros, em que foi - aplicado o teste de Kruskal-Wallis. +Ensaio inteiramente casualizado para avaliar a + porcentagem de plantas doentes em um experimento de tomateiros + onde foi estudado um fator de 3 níveis. Para análise dos + resultados pode-se considerar o de Kruskal- Wallis. } \examples{ @@ -33,7 +34,7 @@ str(PimentelTb21.5.1) xyplot(doentes ~ trat, data = PimentelTb21.5.1, type = c("a", "p"), - ylab = "Porcentagem de Plantas Doentes", + ylab = "Porcentagem de plantas doentes", xlab = "Tratamento") } -- GitLab