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