From 890bff66b7c2c98a5c7dd3c7691297e43be931be Mon Sep 17 00:00:00 2001 From: Eduardo Junior <edujrrib@gmail.com> Date: Mon, 2 May 2016 13:27:01 -0300 Subject: [PATCH] =?UTF-8?q?Troca=20o=20nome=20da=20vari=C3=A1vel=20respost?= =?UTF-8?q?a=20mantendo=20padr=C3=A3o=20utilizado=20em=20outro=20dataset?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/capmosca.R | 8 ++++---- data/capmosca.rda | Bin 713 -> 708 bytes man/capmosca.Rd | 8 ++++---- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/R/capmosca.R b/R/capmosca.R index 38325bf..089c48d 100644 --- a/R/capmosca.R +++ b/R/capmosca.R @@ -32,7 +32,7 @@ #' \item{\code{nerep}}{Contagem do número de estruturas reprodutivas da #' planta.} #' -#' \item{\code{ncapu}}{Contagem do número de capulhos produzidos.} +#' \item{\code{ncap}}{Contagem do número de capulhos produzidos.} #' #' \item{\code{nnos}}{Contagem do número de nós da planta.} #' @@ -45,14 +45,14 @@ #' library(lattice) #' #' # Número de capulhos produzidos por vaso -#' da <- aggregate(ncapu ~ vaso + dexp, data = capmosca, FUN = sum) -#' xyplot(ncapu ~ dexp, +#' da <- aggregate(ncap ~ vaso + dexp, data = capmosca, FUN = sum) +#' xyplot(ncap ~ dexp, #' data = da, #' jitter.x = TRUE, #' type = c("p", "g", "smooth")) #' #' # Número de capulhos produzidos por planta -#' xyplot(ncapu ~ dexp, groups = planta, +#' xyplot(ncap ~ dexp, groups = planta, #' data = capmosca, #' jitter.x = TRUE, #' type = c("p", "g", "smooth")) diff --git a/data/capmosca.rda b/data/capmosca.rda index 1087dfc9ffa2ce52e9f61949c004ad2918d5795d..6feb2463ab27e2442625762b234f55a1ad631b73 100644 GIT binary patch literal 708 zcmZ>Y%CIzaj8qGb6n5!kVPN@O|NsC0e~d>C*Zn_swEjpw``=rK8X62@7@1r`*cciU zIJ_MXFiq#=)n#0y<i4`usF5T?m4iv<WWkOL85s<W%X)fzd5tO^S2lU@I=eM6`!X;v zWH2zWHJC6kFgLKx%3v^JV2}c%6b5Ez2No}1MfD|@O&XUuWH2xo^vq(AVryVvV6bDJ z^XBHiqm8kb1OtvY2^xgYT5LO$v#BM?Rax0dRcE^P!ud-VFE-K4n>KaEqMb7sW__7; zAzD1vJ<ly=?FF}sQH^Z6+dVg~<q|oyx72s-WwlTDmWg%;1tdn9Oh{!}$Qzmwo$Yjq zXMd(wz?Mxb6<j7ASa6ADhnOnYwU!M_Riza7T(Gz(z~HASro-3xz`&iAuXx#BS);^! zk6D|QFKBMtG@t3%gs*=CT6uT{dVL=JYiVS5;*mHw!@DSYT5oIE$+AgLXXr}v`Y$<h z_f7!2631??Z#pX(W8P>_%e+0iKh)JbX+anV%d*V8vf4ju-E}5j`Ec<tL+q&~0sbq6 z?YMM5RcE_I2QdgXP8W#D&`{}GE~W9^?s3x*JweXN3XBSG1*~GOo=Rz4tCPJy`t>%? zR>M_WW-M^BXjsp}Dx%-haz^5j#66v$gmrau?_4!}Fr^`Jx2J@WX;Y9Ur@{%Nki8Rs zdEdS5YJb12`DiD@$_c8!-|y0$5ZjiO$+gJj)Zv>Ks~2s#n(BS!yj;PO>lMElm2wQ; z@TD&CywI@LRi(??OX!eioAK{cHIqLrco?9yC~u0<*%lY6c*TjV;qF2D69m7!smb$O zoT>Ts>aLBNg?y@)ugc!(*s5IbWwD^RpVdg`LJsHrBbHv>eD|a;F5>8Zc4mR@-S7|F zqkrrE%J-9#{>^nTaXZ7t2M%%KyEgJJUAn_*wt%>^?t}z(MnSjzCkvVb7@kXBI8=Z1 O&O|>E6_$%ijtl_G5-A}7 literal 713 zcmZ>Y%CIzaj8qGb>`R}M%fRxv{{R2~{}_)PuKR!NX#J6V_W!pIH8dE+FfzG>urV|y zaCkc&V4BX#tIN1ZLu!Wb5rwY|DZD0<h7!GOZOsl+ye2708JUw$@dh9C^_+Zb;bI2{ z1_rif2L=Wy1_lNxJ`)qh1&j+A7#J=vFfi~mFt90bOi~g#p*|_)pj1_cFOS1v1%DR_ zMuVPN8JC?I)a+aY9A}!}*`RIZq$TmuNsXIxm5I&?9}#6CO-U(1t;^D%eoEarm-6(Q z)U9hbxjuejnC&v#AX@*h|0%aTaRuduwFjETd0Kv~cNN`vdZPbi#T}=1W}8lXvat2# zO16M0&aqVn2NyH(oI9{;G1GNVCY5PiQjLZ=Q{ujOiw4c|I=03%JA&h|Sx)0*fdiXj z!u_SKqJr1YUtX*8{#oR$ldY%a>O|)(<b0QLBrEOx^9c$Wj?EIroO#|w7eB{tIT<XS zkzi(R7rEhn(gMC)9J`~x<Q6gQ+PQIiFt4xlDy>9OrVkFPSrS>FjJMmKyEc>K+wLi^ z4~SQ-6cIk-^5mfFdG+sAt_KwuC8P>jFLX3{F#Mh9zW#-*v|^_~fKLNU^EQVcnKv|N zJ#yKo`D=dcB_FdBYejV!IX*hZbBG6=ljK}sctf83^(M8}pSCfxR%IO2Vx0G<$RH)3 zWyKPeW`&c*dbh95td`)a-mA-houeTyg)^$JDo-FZ_0=)amdL5cH#dEEt(|Ff=T!#3 zMUak7%}b@|`x`8$bsF7c+R7s6k*O5mG5?|B<s`%B*BO?H^4(QGWhOWwv!?aXs~tt9 z5ucds=FacExkY!W-LCCZ)UF3yim}ak_nIrv{7Z7@bCU<lqpo~&nEuCk#tNOc5BCZ- z3fA1}U_E{IKX>K)O%IlQdH8Vuru(dEQA}r@n11ZP+EFMn<sz52Ln!wq#{?-BSJ7+1 YE=mqeGtRdO|I>TYRj^P|=Dfu%0K612J^%m! diff --git a/man/capmosca.Rd b/man/capmosca.Rd index 03b82da..c682df4 100644 --- a/man/capmosca.Rd +++ b/man/capmosca.Rd @@ -24,7 +24,7 @@ \item{\code{nerep}}{Contagem do número de estruturas reprodutivas da planta.} -\item{\code{ncapu}}{Contagem do número de capulhos produzidos.} +\item{\code{ncap}}{Contagem do número de capulhos produzidos.} \item{\code{nnos}}{Contagem do número de nós da planta.} @@ -49,14 +49,14 @@ str(capmosca) library(lattice) # Número de capulhos produzidos por vaso -da <- aggregate(ncapu ~ vaso + dexp, data = capmosca, FUN = sum) -xyplot(ncapu ~ dexp, +da <- aggregate(ncap ~ vaso + dexp, data = capmosca, FUN = sum) +xyplot(ncap ~ dexp, data = da, jitter.x = TRUE, type = c("p", "g", "smooth")) # Número de capulhos produzidos por planta -xyplot(ncapu ~ dexp, groups = planta, +xyplot(ncap ~ dexp, groups = planta, data = capmosca, jitter.x = TRUE, type = c("p", "g", "smooth")) -- GitLab