From 823a18308810b7033c95b8dbc80bc470b998cae1 Mon Sep 17 00:00:00 2001 From: Bruno Geronymo <geronymobruno@hotmail.com> Date: Thu, 1 Sep 2016 15:42:22 -0300 Subject: [PATCH] Adiciona Tabela 8 (AndradeTb2.15). --- .RData | Bin 3035 -> 2862 bytes R/AndradeTb2.15.R | 39 ++++++++++++++++++++++++ data-raw/.~lock.AndradeTb2.15.csv# | 1 + data-raw/AndradeTb2.15.txt | 6 ++++ data/AndradeTb2.15.rda | Bin 0 -> 179 bytes man/AndradeTb2.15.Rd | 47 +++++++++++++++++++++++++++++ 6 files changed, 93 insertions(+) create mode 100644 R/AndradeTb2.15.R create mode 100644 data-raw/.~lock.AndradeTb2.15.csv# create mode 100644 data-raw/AndradeTb2.15.txt create mode 100644 data/AndradeTb2.15.rda create mode 100644 man/AndradeTb2.15.Rd diff --git a/.RData b/.RData index 45cd2f855d373e395745763e033f564b649aeb41..16fdcd86103179f6ec522e1f58e958f328825666 100644 GIT binary patch literal 2862 zcmb2|=3oE==Gw4K3z0Wca>n28-uUiu%}L|Z3A2+@Y?5=OjE_a6^CZ8?E{k-k*%r9% zP2e;;lhn>F5p6oEH?>qw&-h_5W$}8e>t9RHmDbt3FSdVQYX801{{4D!w$|(ohi@`6 zFbFU(88S31a6Z9dV<W-P!?5k}nba4Ly&QHXy@@pm@y}vlQ22NFw6j>pYXjr|cYn<N z6aQ0Q=}d%=0^95Qj*9<jfA$<@7x-xRW4`EY{e!~oTt@@~_L~|n+^F$Ce((Rl66b}T z6^9gmeVaW!-cF+K#~-=-PaD|nMIG!#BLZ2bGt?{H`=5TcNr~kV=Ztt&<y*|H|1WY` z{ir|8xWCQ&?-8bU#V@rB4-5RR6_*#`d;EX4uvm}1V5{5TDh@Rrx!yznie6Ulu<j~& z@u@yKvD{TKa8+K5^UeEi8wEc&uG)XB_B(5joedu!-wXSi|IKGsaykFp@u+asKZ%~# z{B|D-?AvDFH*{I4)#SH<*XhgL-K7Tg;(B!oA3vPSj$E#nyIJ*ZkEr6kg?G+;dw%fP zMdm;Q|JgVAtzS;&dOfjMaAo|S&iL(mF=_Kn_7ulG%VM|DyY%Gc9#z+8u}8&2UhB;N z?A7GBVa4<-6|dX<GcCoBp8oQB>h`xry1R?GE5m;7JimGc+uQE6tA~%h+Q%~||GIaL zH}^Nm<?gdL1!jmTJ>|VRIbYEFMDVUpXC-H~&GxEXKWp9Oq#4{?v(`^plKuG!%bXpi zA9z>g{5+Cf_4n9}#vr@88EZsWWNXLn`Sn6_*S+TM#B&!8d=G9_{r)H_wqyMjJ9j}n zhwz;J?2DK;cN;x$=zDo_Q+Usvklr<GQoH87-rTzU)fuI;u6ZwXX3y;U{=uGqVnJrb zwQIkh>aPy}r2cn$+QlqBcas&@yB?Xi^?kEkVjw<OFIM=(F0UN<Xjj9HT1U^^c^zAR z`m)KwsK$LC<Aa3u{jW-qvz(&*S9eFDhUJeho7+QAKfSKJXzRv1br-&#W%^?nyyL}{ zhWw<(i3z{%vRYPtUvfG5<uU!|wtM7!tBZZvH*-dWKAGz}-R5lE=gAk>o909{)K1l% zdtdAVSMCYkSz+GVJNWd>S1ZMa&uGb=sN)~$|BON3*Y6x-RxnG?OYtqw7kuh7lL|fm z`g>rl-|pw^dln~cQor4#;<@r*?Do}?j?qRNH-vP4QJAjY|N9GD@Ynx5mYbR`@Vz_r z_(t-b$-f`R?fWoq;i3oP4+~FvGDeF&WENO`^5vQe)#{!0`#N=Zajbd$u=&H;V@->b zf^JpxFrWISFqO~q!&=4<VYAPfi}s(t*|zfx<CL(|%lz8{r<80LyI;3)Q~WXK%$2Wn zRy*rWnN(5t_Vk3OPnkC?bFrL$ulp;v>jIO|ZF%RGxU>0be)meTxol%uQWnK5cI9Br z^%kMWKjUXfmTunjNa<V1ecqzE;)gO1mr3?(F4JPKjz8^quYN(AZch2E<;%q^+s^B( z=8%4A6`WGH{^!fN2bWL(bY5qYtPazX{EL<~72huF2Yg+7#Fo{SN2>q*Q5go++ZOkx zUJzH?RrTIJ?Bta@JHKUq)a8vVcvhU4ILUPW_m_PWV(k^T&Q4YNA9SmrT_>cbZtBr1 zRiE!}{;~5Szf1V87ZE>x%F3U<9r3dJ)33|VzOOs9?d_*4oBw24eeD+X?R#F)E|3=V z`O9AOYo_`a0)vmsPK&*|PPM4+O-rK3-p#dJ9_~(%Ib^Wi=zZ@^1<t@^`L*n4yb29% zE;)t2(obMJXJ`F$m$gOjiWSz|Vz>XbXtUw2@N7<5v1)Vp?&-|T1#4@ci|QFKzjNBd z)Kbc>xF|v)>&lsqKSzWo95Zq_$GZ8ZMRv`kwKHCriQbKT)N<Kpor`~s6yx*d%-hy< zzxf;WYx=XENiTGFb9C)UJoQoda@Xuz>%BI~)KpDentgVTZ0wxP(<?T|*cd%o#lu>q zQ|Pq)aORy{DUFzw>k~Jsec7CIBRitmD`Q5*YO6fuE}a|ea`<O0kop*tu4h)muOfZa zW?|1I*4Tu_6TLg%g#Y@PJolTa__|A5rg&Twe7$>iYL1(y;04>ePEQP_AOEt@Svg(% z_On)Yod-cjbf!-W+po4h<l~FS4`<9}KkDtz8@Gl>s9WKAjW1{aqvy4rZj*~t6}_!K ztTWp<lYQNk^|KdEDCR1=$=2Ctc<g>$ncj{b=XtHhDK1|_PYP*WijY^;TdJpWcY=aT zTl&p}HH)tL)Ur-<oZ59ovhuE0TZ)&cF!MJ*--yrg^9(*rthYR;b>#iG{?lD&irn%} z@l7}+vc9dNaF?r@;~j~Jj5CdQuY`FPXL!G7-mxosonEz*-dC32Ml-`i^bHyhl<l@m zni$Pk^>En%jZ@z~KHoG|;hmQG`sNV#yzoya<n|vsc8t0Cw#eEvx%DBJXI<FxjXB>i z?&y?%qKj1K|4q9Y`Qh!O&qtetBL8+fJv%Y^FV|h$Ja^HrN?xzb+_x*t3K3X%iD&UV zp$9t4FE?Fu{2t<?SCpBaQOfvzIm4ryYJ5-K3~p#O^vg5sJaRrYnER5JZ~1LwUjIYI zm)O{s_Z+M>ush(iWr6W}+n*mNtIoV5{)N?Wj_=H`^N$D1+6x;RABz<G{pJMs&mSS; z`(vI+Z2n=xzT7o*Qdrji=T+Nk&!4{5dt#r`tDP}><<h6~S~$uJ-%?Pmd@my6a&GnN zP0x2~-u-*E>N$t~$+k7}zT0PZoSplA=G<=zkC*DSzMA&UK7Yl<YttVwZu_0+aw5zi z+ro6G?efBgAhw#VlitM6w%s|`Xpwj|Gp7gt#xIAb$-KN0(a*SYovxsUwf3%6&lS#D zxpU5w{j|@rbxx5mN4hL?Njl@dUYn=KV)!e|0xf@6ZOS{tE3!5Co1e`SyDrn@orzIl zvyvxGRlV6*+`Dp0%MM)@JK4FCYfrF=oM`vdJh%G%OQYSL!C|SdHx|uF-x_mKIdWUI z{KVCFkG`6Bda>W>XF2*if5bcREqlDD=i9OT;;VZ@cX4u5-Lab&P;PYo_v*yBo2?69 zT9j&<ojDq?D(;5mv8UzfY1uc06->K=E!}3a@)>UI3h#NWG3C{<X2C?UORL3hvtIsN zxYBNU+6{$p{R8fk)Kzwwd3uH|cG|V)ik{*9-B0zt@mes|)^3|_mb@(Df%q{Kr%h{A z_s^E;ER-t}oOk;Dod>JiABCJuQof|#w{O<07pX^OR({FpS(4Qn-SK*Dr0K&q&V|Po zuhrM&5b<#9tG_0_Y-z`4^B}2%R;#w}oUXCHV~6He<yiaebI%6O-1z3iNtMIaeW9#+ zA%~Oin|6LNYwtaKKY!we$dz}wHp*28S}$aqc46b8nbKT6FYmkFR&9Q`b$ggqmQM1c zFctG9_F-9P4`}9}y-~aEYVi@{9Xpks&QI8L;Z4q(;5Dw_&(1CBFDkJ<9r{VHk4JB+ zc1OL-kIaoHZC4cPZ};a>sZA+}jfyXyA2er$zZb`(Q(0Bh4765!-q&=Y+-uw9%;T{y zmFBM8a7VBsH;sd*cXn{bj{_N3uCcF^o}zZzTV<)O7x#%jd)`(gaZH%^Rd6F)Y_O&A z!Gc9azp@-n&Dmpe+3y@ZTYD;=>z_&VufyVz-AXOrsvkzRJ>Sie_U<1~MgW7>0-fbG z$L?B3u&>EdI1-juT=L^@Z~yMPl7xm$?d$thoVKiAJ2`nq)Q0#b@4$VYQ%mNxnAB^j zOVuy#c(vZgGx|kflyIbhQc#G3l9BB$#UF`^rAssVV{-h2IzML2d9-b7#pR@!)L6by zLH`AnB1^uD77H4y&(r5FU3ak4TJV2T(f3;$_Jys_oE63t^FsdmqyD>|oEKh(H2VG& z7h7JjR`s)^zWtl&X%Ac$eCIAHO{#EtKf}VYRDZqgpKOag_gs#?`(6M3erVYo_m|uZ F3;<a=je`IH 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 diff --git a/R/AndradeTb2.15.R b/R/AndradeTb2.15.R new file mode 100644 index 00000000..7e2b7150 --- /dev/null +++ b/R/AndradeTb2.15.R @@ -0,0 +1,39 @@ +#' @name AndradeTb2.15 +#' @title Distribuição do Número de Plantas Sadias de Mandioca +#' @description Estudo da distribuição do número de plantas sadias de +#' mandioca colhidas na área útil de uma parcela. +#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que +#' +#' \describe{ +#' +#' \item{\code{plantas}}{Número de plantas sadias de mandioca.} +#' +#' \item{\code{freq}}{Frequência do número de plantas sadias de +#' mandioca.} +#' +#' } +#' @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.15, pág. 89) +#' @examples +#' +#' library(lattice) +#' +#' data(AndradeTb2.15) +#' str(AndradeTb2.15) +#' +#' bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), +#' names.arg = AndradeTb2.15$plantas, +#' col = "darkturquoise", +#' beside = TRUE, +#' ylim = c(0, 50), +#' xlab = "Número de Plantas Colhidas Sadias", +#' ylab = "Porcentagem do Número de Parcelas") +#' +#' text(bp, 0, +#' round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1), +#' cex= 1, pos = 3) +#' +NULL \ No newline at end of file diff --git a/data-raw/.~lock.AndradeTb2.15.csv# b/data-raw/.~lock.AndradeTb2.15.csv# new file mode 100644 index 00000000..c80a0a83 --- /dev/null +++ b/data-raw/.~lock.AndradeTb2.15.csv# @@ -0,0 +1 @@ +,pet-estatistica2,petestatistica2-G31M-ES2C,01.09.2016 15:12,file:///home/pet-estatistica2/.config/libreoffice/4; \ No newline at end of file diff --git a/data-raw/AndradeTb2.15.txt b/data-raw/AndradeTb2.15.txt new file mode 100644 index 00000000..d7c18678 --- /dev/null +++ b/data-raw/AndradeTb2.15.txt @@ -0,0 +1,6 @@ +plantas freq +23 1 +24 3 +25 4 +26 8 +27 14 diff --git a/data/AndradeTb2.15.rda b/data/AndradeTb2.15.rda new file mode 100644 index 0000000000000000000000000000000000000000..cef7184377835114272f5f639010285d97b4e02c GIT binary patch literal 179 zcmZ>Y%CIzaj8qGbG)%ShWnjptKk)Cf#}5WZBL)=)5eIwrKMf8H44exXx_Cvts%2GW zNiLG&m0RX;Y~Bh<wUx_!4Gj%>I8L@4IkrSy?v&u=4VH|PeUhVta~58?^6N|JhK^#J zw_h3>gcfwNr*gG=%ARy^n97mB!LORg@@HiOtCPy!YTswF1)Jvm(CX;9@afn$yNa{x l9DaxCXhw^qWG!}_<nUbgH2(!Q{vW$1X&!26?AAP$0RW<YNxT36 literal 0 HcmV?d00001 diff --git a/man/AndradeTb2.15.Rd b/man/AndradeTb2.15.Rd new file mode 100644 index 00000000..c3a0daf6 --- /dev/null +++ b/man/AndradeTb2.15.Rd @@ -0,0 +1,47 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/AndradeTb2.15.R +\name{AndradeTb2.15} +\alias{AndradeTb2.15} +\title{Distribuição do Número de Plantas Sadias de Mandioca} +\format{Um \code{data.frame} com 5 observações e 2 variáveis, em que + +\describe{ + +\item{\code{plantas}}{Número de plantas sadias de mandioca.} + +\item{\code{freq}}{Frequência do número de plantas sadias de + mandioca.} + +}} +\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.15, pág. 89) +} +\description{ +Estudo da distribuição do número de plantas sadias de + mandioca colhidas na área útil de uma parcela. +} +\examples{ + +library(lattice) + +data(AndradeTb2.15) +str(AndradeTb2.15) + +bp <- barplot(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), + names.arg = AndradeTb2.15$plantas, + col = "darkturquoise", + beside = TRUE, + ylim = c(0, 50), + xlab = "Número de Plantas Colhidas Sadias", + ylab = "Porcentagem do Número de Parcelas") + +text(bp, 0, + round(AndradeTb2.15$freq * (100/sum(AndradeTb2.15$freq)), 1), + cex= 1, pos = 3) + +} +\keyword{AAS} + -- GitLab