<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><SPAN></SPAN></div>
<DIV></DIV>
<DIV style="RIGHT: auto">Caros membros do grupo,</DIV>
<DIV style="RIGHT: auto">Alguém poderia por gentileza me auxiliar com o código a seguir?</DIV>
<DIV style="RIGHT: auto">No caso a idéia é substituir o loop que calcula a diferença entre as observações dentro de uma mesma parcela sendo que a primeira observação de cada parcela deve ter valor zerado. Para aqueles mais familiarizados estou calculando a taxa de incremento para sucessivas medições. Segue o código</DIV>
<DIV style="RIGHT: auto">###RCMR</DIV>
<DIV style="RIGHT: auto">dados<-data.frame(parcela=rep(1:5,each=3), y=runif(15))<BR>dados<BR>dados$taxa<-0<BR>for(i in 1:(nrow(dados)-1))<BR>{<BR> if(dados$parcela[i] == dados$parcela[i+1])<BR> {<BR> dados$taxa[i+1] <- dados$y[i+1]-dados$y[i]<BR> }<BR>}<BR>dados</DIV>
<DIV style="RIGHT: auto">#A seguir tento reproduzir o código acima, porém feito incorretamente</DIV>
<DIV style="RIGHT: auto">dados$taxa<-0<BR>dados$taxa[which(diff(dados$parcela)==0)] <- diff(dados$y) #feito de maneira incorreta<BR>dados</DIV>
<DIV style="RIGHT: auto"> </DIV>
<DIV style="RIGHT: auto">Abraços</DIV>
<DIV style="RIGHT: auto">Samuel<VAR id=yui-ie-cursor></VAR></DIV>
<DIV style="RIGHT: auto"> </DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=3><B>====================================</B></FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=3><B>Samuel P. C. Carvalho<BR></B><FONT color=#000000 size=2>Mestre em Ciências Florestais [UFLA]</FONT></FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT color=#000000 size=2>Doutorando em Recursos Florestais [ESALQ/USP]</FONT></DIV>
<DIV style="FONT-FAMILY: courier, monaco, monospace, sans-serif"><FONT size=2>=============================================</FONT></DIV></div></body></html>