From 14c7ddc4d773ad433f1430f9c2d269c8b0744563 Mon Sep 17 00:00:00 2001 From: Bruna Wundervald <brunadaviesw@gmail.com> Date: Wed, 23 Mar 2016 17:24:48 -0300 Subject: [PATCH] Atualiza arquivos da tabela 5.11 do Zimmermann --- R/ZimmermannTb5.11.R | 13 +++++++------ data-raw/ZimmermannTb5.11.txt | 2 +- data/ZimmermannTb5.11.rda | Bin 3269 -> 2401 bytes 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/R/ZimmermannTb5.11.R b/R/ZimmermannTb5.11.R index 9e6bb8d..665d378 100644 --- a/R/ZimmermannTb5.11.R +++ b/R/ZimmermannTb5.11.R @@ -1,11 +1,12 @@ #' @name ZimmermannTb5.11 #' @title Proposrção de hastes sobreviventes ao ataque de insetos #' @description Experimento em delineamento quadrado latino onde foram -#' tomadas quatro amostras em cada uma das parcelas no que diz -#' respeito ao número total de hastes e número de hastes mortas por -#' cupim (\emph{Sinthermes} sp.) e lagarta elasmo -#' (\emph{Elasmopalpus} sp.). Com base nestes números, a proporção -#' de hastes sobreviventes ao ataque de insetos foi calculada. +#' tomadas quatro amostras em cada uma das parcelas (tipo de +#' inseticida) no que diz respeito ao número total de hastes +#' e número de hastes mortas por cupim (\emph{Sinthermes} sp.) +#' e lagarta elasmo (\emph{Elasmopalpus} sp.). Com base +#' nestes números, a proporção de hastes sobreviventes ao +#' ataque de insetos foi calculada. #' @format Um \code{data.frame} com 484 observações e 5 variáveis #' #' \describe{ @@ -19,7 +20,7 @@ #' \item{amostra}{Fator de níveis numéricos. Identifica a amostra em #' cada unidade experimental.} #' -#' \item{parcela}{Fator de níveis nominais. Indica o tratamento +#' \item{inset}{Fator de níveis nominais. Indica o inseticida #' aplicado.} #' #' \item{prop}{Proporção de hastes sobreviventes ao ataque de insetos. O diff --git a/data-raw/ZimmermannTb5.11.txt b/data-raw/ZimmermannTb5.11.txt index 1e3c3c8..35a69f9 100644 --- a/data-raw/ZimmermannTb5.11.txt +++ b/data-raw/ZimmermannTb5.11.txt @@ -1,4 +1,4 @@ -linha coluna amostra prop parcela +linha coluna amostra prop inset 1 1 1 0.9 2 2 1 1 0.7368 6 3 1 1 0.9184 3 diff --git a/data/ZimmermannTb5.11.rda b/data/ZimmermannTb5.11.rda index 5d59301286886a968a58b364eedeb8cb112fd816..a634d35bafa020156dffd1a12b0a79cc0e9413ff 100644 GIT binary patch literal 2401 zcmb2|=3oE==C@IqB_W|g@0M(4XHgVpbaa`Rdc;8@jMaNu;)GBIrw#?PNEHV$Aqxc! zAw?kx2N3}lUJHc<n>vlwC@G!T*TJOJ&E%=S{=U$}qp2MCe*1;)-S*Si_W2phqI0hg z`##^hZ~MEo>-YUy^{e$?Y;g3krN=B~`U={O@4OWFFVoji@KO1U;KL5l_g61(DlRhO zE{fT?Q}b}Nx~jUh%(+>Q>Xt}^9^GP8ye>xHZbJ9R%^HS_j&=w--<nu`<aY7fo!?@r z*V$g5mwo>4{<FMmPXB+)!Jla1EFq}ab3(u^ghSb?MNs%q2XEq$R)a^*5@kJaC2kvT zOU^m|<GlRi|4a35KRze3@W~3>cV`5<w%r18uDDd+nfX{Ra=N3fPQ3d8<M)3Kz2@&{ z(%q|4{O{MkfQJV059&AnUoLy=4sX`v?A`IwmqhlQ_CH>FCY~`aX8GO8RV&NVj4%AY zYA0o@Bfq7_GLa`Ex4LfUDGk=zq^&#i^Xj=nwj3|}zfmvo(b0F?W3#i5h1}fXz<59U z(^iQqXM>}jzOiM!$GKQuLa<us&oOIh`JLGc5|++&vBk%@y)L;|N6Go5TEA+3TmExv zyyMKhskisNYIhJ1Yt6hcFYc0IRlR@q{_E}{IXmk0<6nQ8(fzG?;+4C*SIuL$x%(*W zTb7+@PvuAZ7z@MZzZZJLmftI#+H8~@`S_ovo<W!2{JmCx)ilD@a@X9M&1`qPWApzQ z<v;&dolka;TF>^i_vu7tsjEzL&$aJ(`FXdf*jzhyw`Ygr>mRN<`FiV<>)+f&o;Ln- zJoaw>?L4Nf&MSZ2bU)v)>+^5XfI5aRw%+%4+dN3WuxqaLthh<6x3(UXm#^O_VRGbj z#mmj_^yRCVulRnvDwUtlcuJi8i}QZfrf+{X#V5JvGS?nIadQ8h+6#wXXZ>aC@5$%P zd-!*s_xc9;!lj>IuGBBF`CMf6B6QxJZ#mfv`yHw;ta`bp@7#Lt^{Z=me)XQ2ZM^^X zvBC>?y7y;ZOVpH5lUcdo{r@GkSzjOaa35#>zO?+<--@5bbJMo4F3y{t_TG06gI)Mp z^<Qf$<nMeGp2NiStTXM>5?hVO>+a_iXm=JS+h@;aXLX*XYkBI=7ccYkam=M>THkD) z`+bA0tIN(eZelN(&bZHhmuxMP9~vdkA``yf!MUaH@v^f$y!#(m9Q>BCSN#6g=H1J# zorq;&d)EEy_LH64#mrc2PuDaWe%`(II$J%{s{ms~N%2E-&z=95ST{}IwDa7a<>$8^ zyFGg~v%jHU>a*jME$S`#Cp^#j&Mq8a;1kvLxqHcsE6NS_9n!JdFYKRle>(Ah{r2Pf za##ERuIH#ypKEyQsxZ$yrdjVFu}w@`u*^nX_fu7CMO)d{wq*7*KUbPRcmJ@{W@+$g zxv1yc{#2)h&o!I=r)RyQOX7=%JQrNT?pjo_U9r;+tDjdi;q$~#C;wKSYJAjXQ;_^m z!dB&A>9Nc9%NxHih&<tb*=u);XNKwf{Ab*I{{A`oJ@+O5zpZm!+vM16y|}L3oyM2A z=jQw`za|AfxG%WP#ynH`#iVWF-UliU_z3hZX8+vssrxf$VdzEvbJxq(^Svwl>V9Eq z4_{QR^!h#TZEn7w`u+LcWBjLz4>?vRE)AHYwt)Y4+1qw+_NM$boFWy=X1BIJURX8f zwfXN=&GMh8emcDO<(=sh0+>&Aybmc4a4+f6e`$L&@!r$a^4fi|wgD|w+$T3y^jEFn z`g+?c+vs&?THDt^gC*r3#dYP>u5^e9H2?cvp4t}m<Feff?j_S(rnlLAoG!m&dcn_N zgH<P6q>ubDopnY?{T|c2smlyD&ztBsVcq2TDf5qQ*dzRP{gh^{$SF4Bf3}>PGTY-= z^Jl*mrw-lp-x$AS`j?%J6~%W>+Fz3ISv@JN+}Eclxo^4JVv9?s3zuZ`Kl0x7ihtea z3cgk0Rfj*HeXVmh^QZpe+e<H<s(xa4eYcqZ_L993;(Hc#O<A>j$Gr`5$@dR^RI{C$ zcxnyH+RIa=mUCw}=S}<Uxj^B+>B**fza7MH&i|LJzC-8ApO5^v3uL|=;hH${wxswa z<>VjxukST6IDX36X1>}H<-%PLerj!YOq2_}V;bmsG$<g&%<i6Kjc!@k)mdlQwt7FE zaDD%)!_U9ZOx0yBd9%4s_`OHJfIo9-%P+m;Yfsd8AFDUit$4Y4>GxwrcRcT(+9+@6 zR^^u_`<my}Uc>Ig$8A}Dt=a!2%0y?@W516JtkM!{YFBLT*_|{0+aBK3CBj#pE1VN? zSB>VHbMUY9UG=>xa)I}sihJJIa(Y;IOnOQ36Zz{?w<Ikz=swV0dA78unR7;I+$r}f ziTA(vr*d>TOMXkX>Ho!i%6rZ6TWOyk^l-oC`}N#0F5tgU)x+1D7HF(`SZTnO{rCCG zci$tv7uH|W{%#V?plffacd+zQb>;EvnMYL@=o+)~_V|78?z$#cGo!rb-TbP4pFQjK zU$0j5&=(Q<vqS&o56e^aYpO%Gdz43fZ~n0KucvzF@q3ex+gSuzojsM@)0}jwQu~6B z#jN6g!FMmRT6KyxwHy7-liB=A{ZsVBF9rIH_roT?2)o~2^YlleZIZ2m-NVWg>$El- z__h~$E}zj*$N#&!beYI5y))8>rdBxo4ygBdy<>i~iO#EEfASt2`~7r_{!7kJE&KHo z<JUg?F8%IxV7bVZde>8BN4MYMk9CT%@O%9`Z0<E{9-dXkH`ZqfeYHBh#wI@3?AwA_ zMK<#uKNLH*Th5<hex#pzGy7|kujlW4ziz~Q?Bnt}H`y((uHNnKaxi~+iF;46kHW$3 zuRo1GK3~7Az=(h4d8NHqrpg&H>(m6q+d7FJm0kD!$@i74Y5@<-PahWkV>{`U=u3r{ zTHoKUxO{~D)$A)z-1c$a53ySF{Q9Sx(`&-?=l7p@{^67LmYRLK^V?59|NH5ux@~d) z@yZg}w(LbR*X|1*lC7_qCnvVSU1eQ2=Z({y-(Tc&`^AV0ZZKne>-yN{mOa<|_Q$gv zW+(ozo~tf*{o>5#@4Z|z-0P08t>HY<{*C{5_MrokPs&y5-1Z-5IiomdF;k8u^BdN6 z3pXEmShLChdFSEta~b~$sBO8|w^26P`dC@dTZ#WGlmE2;UoSiJ^{JCOBKt$k)gPa| zcyp(6OoiaodFE9yda<s%i#~B37rT(^Qs)?FxAxRI-7_-MIrg<%R!?|y`Rop!>k;8W sVU0JeGOBVM@BL7*3JR@!r}^mk+UTjJM`yp$)T(E{cc<}3vmOHj0Km1@ssI20 literal 3269 zcmb2|=3oE==C`xhr^Kd;w*I%Bd{Tu`rGr<yY~zvd_iDFC25wAX78LE!aOM!2E27SL zq)SQb#)j^$B<GFC^lk(Q9%V~n))ouU>4@cNsy<);?u=#Ri==CpSR-GrojSMt{O{_Y z|Ellb-F#l|H}AB!+jW+jOgnb`nDGClTQYk7E9!cA|J?bf!8H5&x_Ob-Tl4PjW1p`5 z>+h6f<<Gtg|GCq6v(9q%^wv-1nTDpGx(h?%O7qR5?YVnC^&!E3`#-h){{HCYRrfXX z?wwfu^vbtyy1&W{uf0DTTY5k7LafN$qZ@W>?CxH*d&TbVWxF%pCM8v!-F0}`wpZtm zta`b!H@5tlRppB-t9)OlSCl>t>leKq(k-^2lQrWblgUm7-N=S%dJd<>7Q7W(u#q*R zhEZzm$BbV0Y@4XZ7p3B#Uys=SapUSsTR$jlthoB?<>Bi$Cm*S}-unOU;lm!cmx*n< z=zhy=>x9`CK%7qw2A9lMe)wQ8aa&cz4}E^F$-&vz^Y55!-Z1-r@rvl6^^3O!_%E5~ zba&=1?oyktnXg=4vApWOGFj*S<2%o9ubft;R?7Y=;8oBoyJ^o)UU6R0AGm(w`*{iT z<(Jm^-JSAl_tuZLuMS?BzhdtSxl*lCmaR8`{Y`zfecHdGSF5i?y^6eId1duV{($_2 z|2%A)t0cZwy^_B6ZQ~WcD_*PL8((o>5jt(zul>Gr^OGy|ziPjVd3{<;d-tVZb#h;W zS1l>qVp%D?wf(E_PyWSqDW5B)vnD^SwkTcp^x}^B`N_3gdf%#?Uj8LI`2Dhf4tpn9 zHUHu^O|G@P_UeAp>z&PK_dc2)5kKwLue^<x*Pnl0u|IJ8){4os?=mY*+}R_4M_>9g z?_yk){MLh)<P$67b6#J(TB^PK-<q%A+pk2g{JO0#YPocPb+CA}J^vE98K3t3+*A8q z;#HYQdG)V=Q`IkmR#z*R8hmAa<s|)BZ(E%9+V$tRmD=|H+BJLi-8(gN@@p%Yzgn(Z zmY4Y0qOEGr+T&k?|G6%%ydd{8?bPpo602V`UQvGg%k>I(&^`6{OX_m(+jm*rU3YZ) zw?lr{)|&^dUMYY3&%d5qrcY~^*%tO~UHWxTOO*3l=e=isE!_Hh($>(Znw`D1#ixF| zC-0r#``Omat@fV9)4jX)f6d)LW#_M!t@T}JpMTtTZvK*Y(~Qhd{pbIE<>yC}SD{zh zSGEVOUurk?(|VuYhmWs`zg>L)hSaKk{6X$FWisEaU-E4k+ZC(T`xl<``<Ym-Fa26S z$Zq#PuiDec*8MHBef9my-W8j3-bl4e{ARqm-Ku{2r}ek2Bj=kQ`@Oto-^*VPvz6z@ z_WS;v6L@dxwRzwEGhT^(yL)-`-YECC5385`=`QU)yYbp5o>#Khrt4n2cQ(jw{#Jdi zS4O+TD&MYt8umXjbKc3_!Ro={fzGRc|JHne-9ET|$)4k10~Eg<xuzQS&1SX#Q~&Lj zaf!*-B+8cGoAc>c_gwB3>my`mz5gBbeZw}tjaK^G&WA_Xo~kZ6wg1r8>!tVP^NNcn zoozfdCo|LPdEb(}8DF}s-V2}Y{C0Ksito#7u4TW!GrKC_)bk5U+26CT*azE%_j^~K zz3*mw{aB&$szrJ8KK)$t`LnuN-CSe;rTd)kPTW;{DnBqTt9XU6_wP@;ugSl?K6}ZT zy|=C%{<%-{zVgwj-xhp(^=!)bEzca&FMkO$|F8Y#+};)2lP>IKiMSITIHkGFPD*U6 zxAyCQ1$L{dO7FY=-Q+zx;mPVXU0D|QBX)e-xvK8r;#FmVvA<TlG`Gu&X@4CT_<IFU z=34*P-@W9&{<d4?bgt^f;$<`C9c>FVn;ko{%;)WTVQMG!ORC%G$r`6~$G)%5_`NRo z{{KxYYp#gt&G&zp^dsZN@yOP~u&wiVuaey%wL3_7*SEVXPD}jMdUc9_>AJrL())ju zKAyfi?~sc5+WduYf6vK%7@g6s$Yq=Tyvpoe^h2vlU%IZj_iA7H;yr(Jyr^APjQZ?G z_N9_MTJoa%&N)gJ{nAW&^4loGDN6X#EhU$I^Iaca?z(WuX6EL=;NKcoEZ_Y6*2Wxv zdILw`)AXc><0ro7yeKc8@$%B;8&jGmJmbti^-#fO-@i?KTesA$3C(C+KE40Y3noKf z(=VR|{8lde6l1dRW7WG8vwXE`9?V{MSm}DNyx-e}c{Q~Q1B^dB&N=j|xUeRq&4fSp za?4ync45Ce%igwU2rM!vUu&N`iy`H5m|}Xy`mfJ}E}OY_>?&fpX?pkDud9D}w(f28 z|73jSTi1lJ7Oy{bS=Ff;&!4Y;8`_$$r?NHAAlH6L>utWpi5)eM|2F0yke|-8N}x6A z@Py0n@0I=2GmlQyxYjc7jIKp_-0S7p0>A8Ege!jP<?WhK9I<Pe?R_4njao~7Rwqlp z+wgV)XYY2yPfxpc-d%9ad4HDy_rn)Chka)Uo_J|)T>e+VMR6@(pm5ZOknM@;Vr#4O zKB-4qzxmnwu>WvbL`%=%h38*9Pk(XVFiEPbRgZ7>gv<7#KctJJe?6bOjYoPh&!4G@ zjHi^Y2vtQ+Q{=iF)t0I2Jm0%M?&G=l%U68zZ|tdA|NK4ItPLBMg)X>g&$%U3VI7zB z;!oxG&F<LVTE)kEMNzkBd6tv@-{9Qn_Q~ts{ghmN_}M!4c})#Lu`ODM_i=uXX%}62 zxZ)6VTy(qOl|*sVy@?$)JJn<idiVQpe^~Bto5$%~!Lkp9C*2QEFn(ibSJk5N#dwa7 zZ^T!%p1qvULv|e9e)i7Wgm-&iFXA<RZLag;?5euTS8FHKX`XxL_4E3+I$pnJf0ix! zy!yCqy!hc$Iva~7ht1z!_2AZwEk&neqJ_W3K0oarvGeG<H%6=TS3Z4xD?aJI{wAY+ zem6?5&o9)z{<ZRT+4LPXcP+LRr~dg<@>YM-j@iwfYmeDxX5Rg3G=2H(=c?=0afZ*= zzx*}z%%}3N<$onNf8jKrm*=<Z(_&LOc%}OKi&T7d{bbXfiCJk^U%kwJa{8D(L%jLc zvaiQP<|h0OF4WGhf0xQz%C@0CW#=xtGg~*5r2U<!y(?@N`}Dkzf0APE-oKDP|MZz# zn$}VJsgWo7CfBM<`>%ifH7nL^Qe5ZzNt@1UdpobcmAd?7-89`D*{8NG(h0oTU-fof z_}fj<Uv9--JC&DtZ`QQ6N~=AuwY=$zJ9Vu$NAaf0Cfk&sFShPmV;$*|d+J)t8sVGv zo48UYp4@c9HkI3FT6f&t)0?Kg)zEef+w$hMZSb~rDaxm}O*pH`?KbW5J<a{+rhipC z9k%{YYVawkNv?XYbN)}!RlKRai9c2GB-`}TihxsP%X0K@p5K&_^82LM^t;N@NxrAV z7VF%7IVD%+rtzi%vn4sf8QPh)sir4_CT>-D?egt*pk}nirbDS$Pj8wms%8E6#gw-K zkq0&jr`n%pn;5IP+x6PhLe1Oen@UraPcuzCtMU79%apgWH;Xs@Oc6fyY~oq<)o$B< zcWT~VxydB8`}C`cQ&nESc`{{f!cC)1UMY+xm8Q0;bi0>*U#S_Lx9MT(*OG1hI@8Z; zMjzbtD&^s6p=nQbqXWy9t~qi!Xj@5&^{G{p?&@ntZF?@MdHeLH-qhD8swU-XMf--$ z(^<DUc-ylS^^?CY%@;iJZfb31-l=W#-xx=p-qfAKd2-*RuWF}XHcioWi*(rZC#C#k z+9cM}#8YOI-nc|gPYV1tH^<=b$wr;C-a*^kQrDlFH>FqecJ#L!shZJ&n|7ppJQ+9r ztEP2){VWCTZ=a^*8r%#D5BTr3`MBS%Q~yFH{BQizj0HNUv;AcMdAz6#iyT6IayWkZ z#pc!XUf;OZx%P0>^DTWDbI)1LC{<IRP>+Cb{3ast5aKY_8(;kLGA{V#a~7Pi#|QhC y;gdaK??*sCe%*AF-T&_Bju-YeCOXzBS(mSLIj2{=Hfvh{$DGIOG4nz@1_l6yWelwV -- GitLab