From c68a00f0a695e2b7576b45cb5c87c57330b2efbb Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Wed, 31 Aug 2016 15:48:51 -0300
Subject: [PATCH] Adiciona Tabela 6 (AndradeTb2.11).

---
 .RData                     | Bin 7086 -> 3035 bytes
 R/AndradeTb2.11.R          |  42 +++++++++++++++++++++++++++++++
 data-raw/AndradeTb2.11.txt |   5 ++++
 data/AndradeTb2.11.rda     | Bin 0 -> 247 bytes
 man/AndradeTb2.11.Rd       |  50 +++++++++++++++++++++++++++++++++++++
 5 files changed, 97 insertions(+)
 create mode 100644 R/AndradeTb2.11.R
 create mode 100644 data-raw/AndradeTb2.11.txt
 create mode 100644 data/AndradeTb2.11.rda
 create mode 100644 man/AndradeTb2.11.Rd

diff --git a/.RData b/.RData
index b714bb07a77b4970c561afb2e538c6f5770ff71f..45cd2f855d373e395745763e033f564b649aeb41 100644
GIT binary patch
literal 3035
zcmb2|=3oE==Bd*wZLUPiA3uI3A>+iaD=E1-%2H`>e2g}=z1eLb;oVl)?vmntVp8sk
zHzIC<noCXQWzSTJZWi;Jc0!{|Mdf49>|KTLYvay;KK{FW-}66q&ui?T*VNa~nLl+N
z^Q_B_!VC-yj0ytW3>-;q2@0PNGBGe)%+M7#yU^Y8`Oxi(1rs$y7#JR<^BILItmAzu
zFKm9q{<iMqn;bs^Y!qime*ClWhutYTmqXP;wjb?X6fGuAmoK~>66VjO_v84P`L8P<
z+c<Zqq;2`u%{(n$hGD-xbIko|lXWL}a2*gdtDdv4PNimpx}5>b|5*O0|M@c+X3yMl
z&QRKH*{qwJ4s4g^JHq;)UV`oKo!0s4jXQ2K8g9;OOYl!hIAOo!*_T7D4<_7Gc~*2g
zs9-{e`ULw+ITcLD4CG(Ge!cpBZJr>rv&}!7#k|*JX0J29lONc$=MPhz&W^7V^<D}-
zC)1J?{x5r0ule$SF!P6Rv;KblQ1?#gi+FAX$2sL6?(LGo+vMeL2)irf?D(-Y?S6W$
z=%#ApTsidz+cF~;)zv+T&iZluhS<V8W)Gj)ZR7j5bN>DizC9lq4R*i&|3R*6%OTb(
zLFNeuEB0Lfeu!~q_QsU_J=QNG^z|d{S!zOU|8yBm|7OE9^~?LOLd#RX|6Dfxs_JwT
zCqGq{rKclS-m5zIGkT`p-=L)@_f}@I^X{E`ZuXnAF5APiPESy8uFcY(yUeBbLf`tM
zo79b$ZWd3@mw8aI>D=wF&$eH=^<&cYX(qX>30)tB*BrYZE4AKgiRG`S`Hr7Nb@un}
zU3lk()`wQ<v*kAvnTzHrYB$#S+Wv~M<tSJ?ch36*s|tU0JF)-Y!)d0w)HwNx<mZIy
z>F2IHyQ}6jT*&_R>vH*-1#6B8pVttQ72@L5y122Wq<{6Aodxe5Woy>)u6XwB$-U+i
z{Wgs&w(=)D-qgLv=v>k1)t9O_Ee>kG<<T(l<DLVz?@rOY{I{w!H9xPS?y<Q}WRrMB
zx6@8`wwi?4sO#bL_})zp{3M$fbJ}*!<}<GkacA?ct-YK+Ip>w@Oo3H4N!vcGJ=eWY
zpxLBm;hoBOuJUIe4koTijdm((YJKRt{K2ukt}_Khx2auNykOD40CD^JYOlKetL{%d
za`2uW-_xrl9iI+07Ya9?*tK=ZzE}5a&KBi*-@K^GEziR2ax3=h!?_#J{@e7Rc5b3R
zOS9IcIsK;B<Njp*J+MG_Mz2PA-HWQV`;2FV7(cq~RV?aT*)AWop?8_&c{%gvu`*ly
zMa)BP+3rh|6PSHyS8`rK(m$E%$ydY|ZWGo#=(>RIUb)|uD}h(6^yklbyZrpCmgkq3
z>F(p@nb;89`ux0}%R0`okUOdxI?ucJ$NovWXq<4R-;6U=+A@fH8GnDV(WSh3yuqx_
zx6blZ-%wN%%*fj`vv&5g+Ts&4otG`Y<JDj}IdS4j$3wCGn+xZNgz))PnH*0_59!Hg
zY7c$Ht{Y{*pZ+zpb*5d9+{L+HQ!SUDsTJ3(mo%v|EU`Z;df3AE-9x>}drV9BnJ4`E
zJkdJ+;*6HNZOUnEysyK(?}pr*(xq`ORqOtalZQ%Uc00}IDokaKpZKKX?c*b_OXS-5
zzuRo{$f|QYRV_dH*uQ0_)h`6j{rqcNwXR<6ljEzqj?0-}WX}5EaoIYQ@8Q;C5*wxX
z4;5a_;nm3RKJa?^Om?Z(c=_PfdIb_@3pm~^D?R0!GBf+&vswv}6H9vTe!lY}u5HTa
z%(kT(^VeqmNWI$_Znx|5hhy!N)=%|b*jy<;H}d`qrwte1M26-#fBY=DuzJ%}7pLB;
zjZbO~H$>`Qce}hqYrl$c`qH@L$+IRe3%JSHWSP5kVyMa5iC%ka6}_{(wAXGuG|g{D
zosICRMs@Sq{a?@4{(59LQz-G)kzCDtzb+c&y-2!v<%;@=p7w72G|kJsOK#m1e)8N%
zh0}5Q>iP2|PgMtUFS$Q~chS6(4yDxxs~>quADw+7UUJ66;4eH;iGnrt+2ShIM|i4k
zU0ABXTrhe4+HYY!GYXm*(pQ>2`r#+&`~0WWF5VYRj=>LlKdm^mTgUC(`*(dOUM~~b
zw=__D>p7zvFKfCw=jCKgi#9FgX;n2$yZSuqPuc6Q#u2hS;rBE5y`Rs!s+Rw#i2rwP
zmIV9lJoQ4draA_lHn%T3Er04hZK+DP@|<`pr_&Ytg9HulX7F#^xNPA@n^cqQU%ypx
zUuH8bJKZxu<Fw@e(`;rNte>p8aw)9v%FavcZpfy)$={F8Icc@KXMtLE_;#O^fYu+<
z&x2jFMEqO4<NBUG+_U=J!iOsLS1cZ1-G4=ieeG(N3x#>RHp#dgND#8$n*V+WtLZ<(
zKT5N^CbqaMOnJgkcrotTOXEZ0jFYApnBDDXUbcwkNtle@?hEqo<frgA-_)&HEpT#H
z#NyrWtx9C1{H<)P%rCq(d?4yx8FweKD&n5mq_mjUZvh${S)MPhD4*HDb7%6Nnjj4u
z$3Rz|zFkF1x82rfhnRmAaX-1`pwic6%O&^fFT8#Dy-xC~O%ZFdp9GxNa(i^<&!>}D
zC0>dra*I8z^t?5#Xx1U7-8#p@=5nMy7BMQ>a`V)j2?kPE=HE7Lh|^1~T_-j@Eyv*N
z3%@Hqf0yvN3Eptak`3m2wcbi|XUhB4cGKjyq@UW<n-|h?P$u!{gj{aH!e3t|F8g~#
z>r8D<blax&7I$6;OSC-Hn6v7&h|-?ZpS-S}OFKH_)9EUv!1#R%PY#Efq-%1Qgt;>w
zs*vCGZk=q?`w!WNFP;}TuV?w@;>F0LVn1HJsbhKXSG(fdUyUA@pLc3l{@t0g<CNdt
zMYHOyU6#aLyz=kuEtyvVY^7ye{1eWvRoAU#7rV2u&Ru!&&lg`N2HI9EoNKn!hJA|E
z(|G5tE}{zpH`-ab-uYPC_gr4;YD=j}N>g`bLgW?6l~%KO>+7xV*SXYs{xE;NPWjE>
zce$58>fXsO7HnMIbTz?I*r&9{mUC0m`WJWhY5Z(s345NbS^04HFUw}NRXcZy|L$C4
z6umy$;33xx!C6Oi3gtHoY}u$?eWCW`3xmU4t27GBHCB9Ba<$j1TVi?tTr<|gYl1~v
z1GQ(qyeuYKWc<nW$f^mqFNvSCNy=?=_CNEv;kV5D()q=ouJcvAy2LcYgDv8$i+RT*
zdB?4bW4;G+FTA#{BmA0G5Rcn-Gydb;*-Q4!zIA&0>fl}_@kied%1nIQX(lM2>3+ZZ
zmCy9*t1;%Mgfjj=TU<F^wzZ>xv-b5duWPK=r|EAjiTVF`+GhR#DN7G--h6nz!smC}
z3L__G#PkR!^oQNM9X2=Ud8F{pS9Zel+nm_FmA0oIo<4idwdboIb;tN!O564R@w^q8
zZ$xveYT~wKxV~HVzry0p-j_MMgAe`wb$7e}nqzv`inX4ei{G&GL%|8>pd(qCHy>z}
z9dKLs_TgOp2Qu@X-geA0I{NRs(DaGN-`j4sz41izLV&vIk!!b@CPeO=SaLOO!|R)S
zPCioM|61I8(7NRKq==g{Pibv@7MEM}xZ#h}&hIM?Egn6*T=!R+<Ce$yR<`x)cfVcJ
zzw3jw%5wWzOD4QLxo6L!p9<EFDnD{pXhiue)+n@Wzha%_u-SQ@M`#+)`B$4au2|CD
zA=550S$OGsN#kF+cY8z24wY`InCScN&Y$h_TfaN)@B96-%=hBWxp$m@o#EELk{}o%
zmhxhYI@>+Bl^e4sZw?ob(K{Gdy^n2m&npwAi@U9R^47-4_XX-dD3F=G>FbFyW7jLb
z&WEDQHuTtrSKZn?o%@{C%%@s56B{Or>^b)R$%E4`|1d5pzm?>6-BjQ_UvjP8JCpvG
zFZjPy-gA%Nqpg4HXxTo!8SgUQuQ)vI-@ZG2&jogwXzmiL+Mk{EBk5u8S1ZYqqg_V>
z)*fWfjVP?^$~~~%`_7kgH>aDPBHx%bPM-PX{j+h;^!9blYwfP>4sCmFQGex;Y+z_d
ze?`!myWRIQkGr;r&IoQ`s@P^>SGlz3!C_1P*M8?FpFLi>MQ>a9NnJCphr)el53q!W
zJGIn`#3c%u?$8%~n!Eq?-#>qy6a!~ZFX2?Hp5b9QF|jE@>2%6{HR<pEm1@8Lv$3jm
l)ib{mpHk;Iv-6bx3ge3jO^J*4p1f7hu-d3r){T#W0RTmy0A~OI

literal 7086
zcmb2|=3oE==C`)&F(SvWSC@NO&Qf3r=!kIGIHy9yHPAogNRv`Rr)tpwCiUw@<x_%9
zI&{leU3-sdI3~Xj6gCvwknGU;b^Zc1wT%fX-|Fta$=!K#uWi??j8C%r?-!>n-}C+1
zUUTF8^!vRR_qucZRQ|!yR3IqV-&|0skbRK#e}Mq^5w<0~lR_V<C^mhNYHa_eur<ZZ
zV?x)}tO=PMqEV`vA)8EA&bWBZ?}Gb0y+F+;Mj`7M&+9YpX?kTj`OBOGCsa9uSQlSV
zaur&yRQ2iW(;xCPp9_>4IG1^Cl$pw9wAE{+lk=6?ug;%{PB5zUno@j{(d(#GuL`58
z{9jh5|KAuHdp>?zA|&ZC&$#RD)JH8LA<7e$pL`UUqrxYUx{N8O^H@;ltb{p!PKyIB
z9rs%=#=&C2{_A1Xp+oZ=PKfF~Y1?KV)abM<WV1=Bw}7{BL!W8Jd7sW*;u%XPFmDy|
zU0Z6QUL(sFanG%tIV^v9^OgfHxsCkO%!H&BbQM@;x*V2q_m*i^ZoC<JTuJS8MXTH5
z2@hlEmiS1st?~(-z2Zq1XIF1YiIe;W!AF@wL7u(eRxAt2I?^8^)9)pz@|7c7@k!pI
zUTbONZ=9MLPOBUy_N`iyq+0FHA0f!X6fMgaA~}O8jAinSB+u?^+LMn~{LDFH65u&0
z*yPx@tmTWPSL{8PAjrp)wsBM2uIt+kf-ap?TXG`HS}e%K)A{}TRjc<uyQ7gPdAs#@
z_Jh^aRX+$_@Jaq8w&dUI4DsGliw!qh9b>XQmAVX`WiTylZtJ*s>8OsGPiPwNN{%$k
z)JV6@KD^g7LV6|i5B_1P*qd}Ms{1NauSHy!)GLq7`W4BE2ebrzg_e8XtazLmXzFbk
zzRuvo>tE)N)Y8Rc^}Ix9shmvFIN5pQGRw&oYHrHcmTXik_wWc_*>HnJgzJ)<k58=r
ziZdH#oIWzEMWiueDvxQ>nNao{^Ex+8<B?9!et+uHy{&EE*a}yPNVdHa%Q;n`<UW6i
zhet5?7g>XoX4fAEX!D+CX*KaxTi@ElJ(uU^^0+A+{q9=Vv@V%+Y~+eD)e7PI7Rl(C
zt#D_8+3qhLuRQ1WUlvvIO3~R;8B(}<mqM|Ri|Gn4wTX*OHn$i?sV_Y#Y$C*}7&&We
zv60|mw!@~|LJl99sIqZtTI$9rQH&=~US1NkXVu=mzIzV4O{Lx9<EI7L9nc6>@jfsq
zRQgg{51T<kZ=%0g-7|w*hQBv*-e=qKeU`=@mJ@DoO9Yt2I?Gx<IhlDD@7io`w&+~w
zsmNWz+kAhWUo*{f)3E~o2-Z_?ukq@?J#tLPU+rAV#xS*oyErE6Uu)64^rSOs>b7^6
zTDEQG;fyd7%sQ!3Yr1A?!;6bNuOywG)SfUB`+hhjde%O-hply{icK=C;%vbYb^>V|
z)DC@3*))4y-5%467Yl!0yU<@!wc(p=1k3AaZFwb@W9<E^C$79%+pQR>uEp}ioBN`g
z$gS5e_Q}6fn^EO@<Sy%vR`GSMcleK`w0&Ok`Nou!%Uu_F&2g0Xj=r|ETqH5^-iF%;
zlsGH43T((&;+D7O;52o$GESj%=NZvkBib&#ENxvoHCJ}+Wht&Lu6sWiUU}-bVs-nu
z2zR9&Jr{iZW8XgFPxje(T`($N!d=&ClX;?8tYl4#)2Y_$ddzw9op+93*e5-E<%f_J
zoA`EZ6ZLMqtib+in!56_^=vhoTK?CTaD1`r*FUmczd8MsX1ZUx^GwswW1CpoHtPsR
z?91of)PF(p!<Wlf+wC)cu4>({mOs&6zC(Tf_9O9+%MZoh{gQp@;i}ZchUaoS=a#5n
zvg6rz<K9vpZmw^?yyQ5q8SPA1^x+9l!>7F+HamZ9+PmEN*r#o~CE|X^_jA}hf91z9
zkJI#<(s?<FYd?=2YCW&_%I4GcS1i2`zII%Bb?4D?U8X-QS6V_}wf>#6POl=$c=;x2
z8{Mo=7v^1FyRXi|m7{0#vP|g{i=O<mdTjUMi|X(4_ES7ThwrBznJHvy$K(^VWXp`_
z4F&t`C+>1uY-lBK^7Puxq`H|0)e}uVuUNTS^oCKVvR&KmN2eYg+F`i8!cTh6RYo1>
zRk;;;JdT@XKTbOIj`^X?ifY@7yRNI;s`}E}pQ0Sua>S;2E$@8xmV5zjyID#CyOh{o
z|5N+9+0nU){qN04mygdXrm6%!oZC_5?zKddt7YE<i*JYQzEy5_OTE`AwDDGdpl{u`
z=F=<QH~SpoYdiS*|BUlzzV&ugRW~bSR&J70JNL4~;NJO_=et{UbU7r=6oR}x@-Jvl
zicoHw_qOWP!6!a0$&Xu``p#^VT06-iI^9<1nZ`}7(3}wCgHP5sx4oFVr9gdh6!VrH
zGY&{8mz+P*q3NR?Q)JtIt+d9sY~j4uAEr+0^G>;7;xnbDH1XTx4ymBGp4|<S>pShP
zJ9K^BX}0gag8%<LYV66%`wyEh+gm66ZjwbXZ~YP#Gp08pjW(XfH6NDLFICx}rakFq
z+`1X>uRRG2ui3-pJH5m7iF=XsOqag>rGYOtp5Lib<*k#}p!Bw(ZjxG{_EFA^MF$+F
zt6$Annd7GPr?A`V@b!SDT$(4PPcY?2`W0Pr&<S1Eq3O1fea9^&Pet{OA2!xZicp(4
zsb%d)p;x!<<zLTilA5Es`R(<o@6EUTO|&|a^X`57&dF+i$BsAjo=A9Y5^K2KDC7Ip
zWTxE88|Pm8CLGQ2lAqeb%W}{>M!QF!<^C3f*&A3B+8<b(rCsi0(N$+S$5NN$wv*`x
zLxVI!IfERBUEpkn4=fK@A2>7k7XIq#;5CsgpC<h(TT{N_1jk7qhMAly#*Qg!GtQJK
z8P7fG!;#r5`*&rGyO#QrBE}HC38z>CcP40E?>tqytVo1c(bd`GqCk*I3nr6eK?X~J
z2~*3CfSo?c8(7$u1q#%0Ij!2S&XUORi{VA@1MQgnN0xIKHtmydXk<`g_@a8L&SjrG
z<KND7!He6?FWS$E^EZw@wc+H-;}?}CtkyhK@UTAZbA|Bd1K*7<K5%`!{_EXGN?n{*
zHuWX1-8(q><!_lM78eDt3iz{i){iPj?mvrPZneGG+7+P^W~;^2a)<GXmx-gY$0U!F
zp<+55Cs)jgnbNub$&p*jMAR3D82>qJwUc|f*NLSY8>1F4lKb(Cz42cUn||S`EAy9g
zEbtIr<dnVWkW+n!!;`Q7Y$slq`cxKSsVTO}Cp#u>ZGQXQ4T67O-hSZj#1b|$!s%U|
zO{tXU0kvR({w$+_DQh-gG~#+QC26WdZ`OvpQ&O(81@nvXJBe9LI;g>=y6yC&qkO;i
zRRv~V@X5M9>4fk_9|Zv~Su?K?)n@J=5%VGrasF!*SSf29?9jp`cs}aaX5m5)<{yWT
z=o#nyZsR)q;>*WbStl!)clj{pzGr`tdEOx{Gi$@=;CBoYB=;UL3r^^$SLxc~=33S=
zb(O*S7LDu^bGTLbQ+9T$-t6k&ckH<@Yw3AqlenXw{o@4>86Gc4Ojg=rkti4DdxRz0
z!Ci>$P_E#wiOS*fS3UF__xVnIe|y=XmYqDun~%-5edcq_BgIS8is7nIuav@<w+zV)
zYBA#HXBIy4i0+dLxHs|OF5RhIor#k^hdLZis@!zYLOMZC@@GOTJGWz&@vTD@o|#L2
zM!n#@zC-i0pmofjwu@KROM7LVF1qq{pIiT=^xOZpbzJ<_(!B4i!NX(!mF`ZG@A;Rz
z>ubuwpJvVtdpT^@xKFN+-jW}D;?kalHO3nM<2&x<`dvuum8f03;m)*znVsuv>dQs+
zWG;RUbIz~LcK*Y5aNAmiJ8N$iTvso<#_x2EO)X)Ot&F>Cn?O>@t;4I;uHRs~(Il{8
zkNw2-wz;#op79u5w3`sg$9(OXuFG<^jXig-RQP_B&soIl$=t{Kc8&2u=Sga}zpF0F
z=iuI_m-8$2(VE0Rv9AsP-FoD7FYQ1^ZL;Cn!bKeye=`I>UoWiA<t}CL*y+B?g$;I&
z?H_&};W4S4eR1wr&XAhP8RzVDj7-_{|6OM6Q)>BTJY^=cf#SR~j5E}3&G=CJO1R;s
zyq59t=vj|-Ut2U?S58WjZ(`nl=Hk>h7pJb5{t!Mt;*`fUqiqLHMlpYpm^i6Ex<Sr4
z?iqvUu6h4h87J8;on<mLVlDqR?+HH*SKVY%S$o9m{kD5o%mpQ6cn)9xZ#aME+xsdm
zMqHER|D>j?Oq6$BvRE<l(7{R04tBFPoR)C%UoXxexq5Z;m5puAr5?GLme+pXB(^+L
zq$%W$x8Sk47fqEev`Y$iFS5*Av#w_L<75A{3zO4|*E8QwEB?QJhV@S4jcuN<4$HYt
z@ZGEZU|;kKODBQVvVPZQaUHHmRr<onZ>4IWwpt|9OX*jmSktNG7fs!JHVa%S_nohn
zo8KJno^mFz_t%}<TvbPT-pOS&Xzr0ZP&?r`&jWpi?VUzCcCRGw@l|p>(92-vX=I*q
zg0bt_j)$6`7?wy(Rj)Y3*mn3}&kI%$*}^-&Yz)-;SQ~{O3;f>rr-b2#sq&4f`Zry)
zR9|g~X1>gjP?M~$QN*yBL5FQa%M0uFhMO+7ZOpq}(v2F$t$Ai~Cg?G|i7vHj;9)xd
z+vwvg#tgm%tPF439N$DS#WSpBNSOXBAwT|xzvRXVTgp1@&hQE{ykIyW&+zRTvq?V-
z0|$!$i-LrMI>TJX7KRs03$z;o7;f;I+-3Z7;JAPEzKSO;jZOWXxo&gC*82r`PLV27
zJUn-*M$4b<jv4BDpKb|H=Wv(Xc8RsyU2J90m&B7Do!c{uEjC%oNE)^)|G)h3#K|k0
zuIta9QFrX&i3HwfNxc=eb^e$Bf30X;uJk(Sulzkv`O4<Es!#46PF#2*R9&g<uzs|f
zy{3pgv%us(EP{U`W;}9#BC_Cr^25_j=fum5mho@hR<*y*I<-vZ|G{|goy_g$Wi?K`
z^=5GRDKEod#q2lD+k_$EkKO^xOcoil=e!I`3=Kx%3--7jSeR47!%%Qes!{jkP6h`R
zhBpGAEjF}gD%f(p;%h1q)QIQ$)X#9F@lO`R0n5^f%J0vv-=<-AZ>zHJr;mNIS&La4
zS@@<DNu0Mivf+o}>l0NH;&<j9&+xu-S&Ze<!mVB`|C%f&-jT_<y28gvf73Pbr7J~B
zXL4VO@T}9}P!RW(`*LOqWAU30Yz+P9nHKhTt1&mp<*pHXQZp^kJ=3UY`O^umGNrM{
z+>1rmdK`EBf3y9-nn@F@dFqVW0)4FI6n8cHcC6VRvM_6!^!3m#9>&Vm4Rx;%p7C3L
zIo9-`w*2msP7{_aa_V_;dl8G`_M?pwN^kn_CCFS&5IA)009SHl&e>}H(x1CB46Fq;
zuPSuyZS2W1a5-|z!OyfKE%mZcy6~e*U7b#>p`T_>)v^7$af`&+sY-(9wrcPs`d15n
zt(`FI@`s#nQ+~LH?+rfm_1E#>Lq~sIUwTBQB3;w)=)bL+hI{Y-HhC34iBE9v>?sk>
zzDv&>4eY+M;YYu_&-$G=zGbi2YO<;|JXYFm?OcT@9siIMELkF|W%7Clj-6z#Wbcps
z&KCCn+TI0$_cQf>K7P`le5>x;L#_5gar5xCZ>$VUzb%blU$LZS^6UBgk6%3K8FXpY
zkFJU<H{;~8g=hQw|E_A?boMmUZe4zv(|$4gel6U~Z}n)oT<`WXc2+Om^saE8yKGf+
zSDsEu{?6|SUnk0HCog&;^!)eT>Ccyh=bVVxy!=aoNPXS&SXTE(;^$6v-Os8td*q&&
z;_@nDb)WH$`nr_Kg?F?xK3`e7Q2h_z-8=JkuG6V_yM8&p92e*2&Xr%hpYzQ&vM4B6
zE?RwLy;-hbMCHm9|Hg0Eo~^yyes9~pg7C+a|Ga2lx_WPXt<{U`-sbZDeXDN7-A!Bl
z-zN9hyyc&(+|P+kZ>>3=|96ST^5;c&C9j@YDEn#A(s#9&`P1cQy?OdG_1Gk9<<Rwc
zVs39_jdZJi@)tjz*EO#|`I7CM%kKT$cklgKoxA^>gKW9Z&g&N*ZC5>7d)_wZjj6H!
z&J*=}S9m)o{xOMMES7BBZ}#)=w-Yr__gs~$+}W*d{qOyC`SrVMYf^%aUg|bGe_F3>
z>+fsR@4Hp6%X;};S=8~T^Yt%(Rvmn?@>J>}&FR;+)~o#e+y8Oz8=0E$UH2}e#O{<m
z5^oxOr*wMtiQ2ddfkTmV|7TV@{Ipu%bZ&RBSnucTSKn6sR{cHu>g^~$d-0?4`+m;e
z!W`F_x>(10F8}>M7S{iLZa+$XtJXDDQ1?`QjHvR5-MgO#owz5u{dxF*o1&8!*3RQj
z|2RADS*+jdn)1%OFP3hun>lsajs5=5?q%NSy>lwI@bjJP=i)6E{x!AlfAyRH`rpLI
zhHJKeK4YA^Id@skRlQQVyJ;a0w`wv^DqkA%{{F9AFNI%)ubyw#+V^km<)dBx!R%(6
zYD9J=9o#qLM8m14kI(g#MorlJ`rX<7^~-&u_FqeUwxUUK@3F5F?`$f*WmorMNu{_{
z3!AB~*3O$2-#4}xe?O(YKl%BjeYZEAusVP1_Q8|iA~zp2pa1dOyWGh!)0XTom{qLb
zKR^6OlFyAPD-W@+KD@vF&)>dN*3<T%nR6>W|2}W=vUlZox9qxnZPAY7yHm^k;zM)3
zWEws`@pRs!d5-^1U%My!WL@o#w{s=Kmd`u?C-cvnjl!EJ)H(B~<d((hI4m}6&31n_
zr$)$j*)C11JBvPSekX4`E$vfVjD+c#yyM$1|2@6NT6X5P-6gL!@89P&Wvhm@xpV5@
zvs)%*ef=jXmMfY(WpUW?u5V9!-v=ME-Q<3EQ|6Jkd$#^;uKjcV?$%W=W;g$PYH4_2
z_WGCK{`N&XswbVBH{-&^n;ZW-o!>oMhUxP5cW3tZovV#`v{S9L`P4J+-PYoLbz2fP
zomCG#8h$9r`FKas_OO~)u}gMGYFQP%d$r)sgTwzkJJ+6Gzsk(C{9UZd)~c%YrPojX
zTeVlORh#eUySw*N-<>$&o-Ni9^m)^S;QPBuLXNlGEuGQO;Uy>DJGVmN)UG10&wIF&
zmFBVAZk}CJf8@o!Q0DWecK5j~IzG2Acgxeo(q(_A*;h|`7(Y*9&;HoHZ}*xf>gPXO
zm%X5~c>e7JdH<iE3;(`lo}~Q>@BgKu_g(n6SQTn`hgkXE$a==~^u~|ld+Tq=RT^4e
zEB=$7SO3f2e@5t%nAZ}!e|%`(aQJ0$c&xqgrWLn;ras+m*WY7bx9@PTn%r8i{*wBy
zNgsb^fA?D|bN<<z^2&tQKVNLt*Iv7;=B~EdDfJf<w*&<2%ed5=c9HpAU47}kpwL|#
zl(MdNZCGcyy-w)fhP!p!wCsbVUTt_PKGiyC(VxdZzf3#$o!eUcOLvCM<cdvuo_8L)
zz*YBP(U(Q5=B!E&V}GB|!FiVBeC&kqsaN+Lzu}bq<hy$Do<Gkk&aL=%Hg@`(Nq0B@
zSmoXBGXL7#0LSUp%v`67&qsOG9y<5#)Xd7mm8%~ex*B*fb*bpV@^!b~-MjQ>Rlubv
zlcL>sXEr>zplQAS-s|_K`({aBSoHnWhiK(>wmt7Iy>h7dy64QAMX$f{=^f<{m%SIU
zQ@79jRmrr!@!F^Sz1_|4zx(iW7t_1DmbV|-X?bm}Rqzqi5nNmKGbMa`NZb*x^{4N@
z-BOez@#F9%t)G|JH}3bfe-^Vb|M{xa*mYCd<o$c4zb^k|U|tmQn*D5F&aXe~^_}Pc
zz2Z1E^wR10BJJf*3qnJl=Q5kehMn87?Lo6;cDzM4zs@H4kD)iZcPdXbeY|tw!+8e-
zSFc&j-M2kky6|)R$FhCPSJ(ZrwY9sI`my7UTlTl3?`~T?X*<1m^7*=1mNu_GE2_Q?
zxs`9yI?2A+TE9Z9+{Dj9z5dv-9o@S__IH@4ulxKv&GF@1vGlk-G53?(-(M-dTA#B?
zf8(FaSx2UY`W}<-{!<yf+ir5V+w}bI*qb)b3NG!Od(ZJ+o@@M_lD?{sdv5E0fA+=a
zrtH1CgpX1G#c!T2e#h$idV=+G`)g~Ww;Z_j>(#>dTJ80b_j2#Khb~%LE%x_)*}<Fn
zI{W)Smqr?YxU|OfUQBph-;3tu=1aW!LV6>UC99-(!(8Jxgf4q-mus0<T=IN{@N4`1
zm%lCkbSC?9*C*}yI#veyX6pIL&CTDf=5z5{nWi@$y~B8x`%hW4x{c@N%`&AaM=z+a
zpR>ODW?KH0Z3Q>C6cxR`E9||i=T7CSn*SfnF7+C7F>UVm|6W+L@5hJJQzCDd)l4XU
z`EFk<bJFn--FC4%zF*rM>pa`7{!h_fmE`#EE6zQ?UHh=CHfi(!P&sR<f}Go@HlMD0
zFel75Klys$nUzmuHy^X_k1kg^f9R!8s#N~*pz?0J+0(h|ZMWsRUA=rUUFmxp|8AXM
z3Ljdo&$X-FFK7LKv+43Rt-fz+>+@!WZ7hiDUtqbr?diFAdD(KUCD%J|Gw(RBAL{LW
zzW&GU6LRKxJaQH(z3rEk-5tAc%v*T8wm;8r?Gv8=TYYwB-IFhl5B>1S&o=JH-!D5}
zo1GUrRAjyUo!;)U1*=Q%sf$XN?L2E;7V$2i=Als3t(@vzZ{IH!Z;y3Pd%nX@_vQV^
zOFmq1-QFtMzovZcqukw@x6|LP)c)wsy!mu-`nFoDknF45?mv<bUn6Dvddc<6kC-RV
z*UpK1YWMTQ?W=W5t?vl!+Yq&7)70Ys?18fuEwWc;RXp83chB!nKJ$-lf4B5z{kGH}
zEq(Fp&i_7D<m8j+^l!-v&-%Cjt<J>$4xj1&`@xey=lUnp%p9*<`30`I|K+IF@1wdp
z;&&|NKODGKT*$TjgWUT9=D<Tn|9%yJ+&fE#=UPZ^LG`Dc#_ss`Q<HWo-n=%SuWHBN
zJ6#+1THjQE$(NcFv)iJ2`5xEQ?SC%yI(O;klohSXiYZ<DVA0=v>1w@zbNlL39vDnd
z(`)9QbUfsJrAgwQCx-63ed50#E?50MN8RQL_xV2FyKy_N+rEq1_kHiv__a27neRTF
zHQ(4|>5f~aXC9?qRsEf|{hZZ&(M#(}oUi`rU$3(5Z{VdT&+XNpw#iM^+W+AF`-}fS
z_Dol2nv$#j%!0@A<&CYa-x|ZeURpD`@zFl>yzkw%n>SwA{p0aHW3N5OwuO{x{oDEe
z+<j{+UZJDUs^@>NR`~qFN;l=#%}vpVPxsA_6`uDc_V$!LFWINt$h;|jwkG%Y>3j41
znRA<>@4lI}Gw0}>pK~T0lk;PLR=+8<<fMD$XR*tjBFb0h`rTZkmtk{Nq35dm(fj`&
z26M6RIofWuDqX+qiq2etTj9-p`Okwy`AXti4jkO}|4RLejD1W`{_a&fRKx1=c9&^9
z<DqrMpG6h&rMLg&63A+KrtKi{_H1~=h2wcyd!A`K2xOHVwts9A&lqH!58^JiOy0-T
zq8I#GRN<Mn!<q1g8S5DmZ-@K-^v-#`@F$nR;?`3&tR0=TCu&$besT!}+st0iaPag0
zt=bMB*ydeaVH2q2{8Xy7Jmupr7tVk7`AgNxJp_L%_FQd$YA5jL!2FX<&5k_3?4KEL
z{(E~Lmy7q3_vfd|mrgcQNZ5CD!Md8+`G!B%-$_a^`)>6i*X;ZMuAP(B{>}fr|LmFl
z=YQ9K`E4_6;jI7Wo9mC+bi8IZdw=o&vG6Z%#mkm1UAkOQSZ>G9UksnWGIsp@)lmQI
Z7sHgOZyom!B=-K}*V9ayD>ajW0RXev?lk}a

diff --git a/R/AndradeTb2.11.R b/R/AndradeTb2.11.R
new file mode 100644
index 00000000..3826cd53
--- /dev/null
+++ b/R/AndradeTb2.11.R
@@ -0,0 +1,42 @@
+#' @name AndradeTb2.11
+#' @title Experimento de Contagem de Plantas
+#' @description Experimento que tem por objetivo verificar se os
+#'     caracteres ciclo e virescência, de uma progênie da espécie "X",
+#'     segregam de forma independente.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
+#'     caractere ciclo (Tardio e Precoce).}
+#'
+#' \item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
+#'     caractere virescência (Normal e Virescente).}
+#'
+#' \item{\code{cont}}{Contagem de plantas segregando para dois
+#'     caracteres numa progênie da espécie "X".}
+#'
+#' }
+#' @keywords AAS
+#' @source Estatística para as ciências agrárias e biológicas: com
+#'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+#'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+#'     2.11, pág. 80)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.11)
+#' str(AndradeTb2.11)
+#'
+#' tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+#'
+#' barplot(t(tb),
+#'         beside = TRUE,
+#'         legend.text = TRUE,
+#'         col = c("darkturquoise", "lawngreen"),
+#'         ylim = c(0, 3500),
+#'         xlab = "Ciclo",
+#'         ylab = "Contagem de Plantas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.11.txt b/data-raw/AndradeTb2.11.txt
new file mode 100644
index 00000000..def8b5c6
--- /dev/null
+++ b/data-raw/AndradeTb2.11.txt
@@ -0,0 +1,5 @@
+ciclo	vir	cont
+tardio	normal	3470
+precoce	normal	1030
+tardio	virescente	910
+precoce	virescente	290
diff --git a/data/AndradeTb2.11.rda b/data/AndradeTb2.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..808977c5d404f6bdf6b966841d6cdd73e5833eb5
GIT binary patch
literal 247
zcmZ>Y%CIzaj8qGbJa*xXECa)a{|EkW@?a2PG+<C+5OJ_qzuVxz$iTXR;YQ=C%oodF
z`Py7m+{$Zm**|b`=89yuUWStsE_PgYxXh?DOGT2wgn>cIPjS^Ta{+IjQ*WkD*x<>%
z|79#s`s}&(DXhiJ(&}wDE;@PN-DT}J>37Tl-AvVBt{L4w-Yn8=Jn`kdiuffTkCjV2
zd6!L<<W&(k((`fM($)~B?c%Fqr_TE@C2`8)FY&9EiC>Ptk-lJ7@)bwFB9)6%)R<b@
z(<Hk+yGpxP+~4@odUl4xx3>xA_kQV4E(zL@8~nN=W^w+ZkG2d7n^^zEo)mfL<SgxM
GPyzr6>}{0*

literal 0
HcmV?d00001

diff --git a/man/AndradeTb2.11.Rd b/man/AndradeTb2.11.Rd
new file mode 100644
index 00000000..e51d7f37
--- /dev/null
+++ b/man/AndradeTb2.11.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.11.R
+\name{AndradeTb2.11}
+\alias{AndradeTb2.11}
+\title{Experimento de Contagem de Plantas}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{ciclo}}{Fator de 2 níveis qualitativos que indica o
+    caractere ciclo (Tardio e Precoce).}
+
+\item{\code{vir}}{Fator de 3 níveis qualitativos que indica o
+    caractere virescência (Normal e Virescente).}
+
+\item{\code{cont}}{Contagem de plantas segregando para dois
+    caracteres numa progênie da espécie "X".}
+
+}}
+\source{
+Estatística para as ciências agrárias e biológicas: com
+    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+    2.11, pág. 80)
+}
+\description{
+Experimento que tem por objetivo verificar se os
+    caracteres ciclo e virescência, de uma progênie da espécie "X",
+    segregam de forma independente.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.11)
+str(AndradeTb2.11)
+
+tb <- xtabs(cont~ciclo + vir, data= AndradeTb2.11)
+
+barplot(t(tb),
+        beside = TRUE,
+        legend.text = TRUE,
+        col = c("darkturquoise", "lawngreen"),
+        ylim = c(0, 3500),
+        xlab = "Ciclo",
+        ylab = "Contagem de Plantas")
+
+}
+\keyword{AAS}
+
-- 
GitLab