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