
<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: times new roman,new york,times,serif; font-size: 12pt; color: #000000'>Éder, aqui não deu certo...executo o comando data.ini e data.fim e depois o sum, do jeito que vc fez lá, e o resultado aparece NA.<br>Vou levar o pc para a casa do Daniel. Me ajuda lá?kkk<br>abs<br><br><div><span name="x"></span>Lucas F. de Souza<br>Eng. Agrícola - CONAB<br>M.Sc. Produção Vegetal - UENF<br>Doutorando Engenharia de Sistemas Agrícolas - ESALQ/USP<br>tel: (19) 8160-7068<span name="x"></span><br></div><br><hr id="zwchr"><blockquote style="border-left:2px solid rgb(16, 16, 255);margin-left:5px;padding-left:5px;color:#000;font-weight:normal;font-style:normal;text-decoration:none;font-family:Helvetica,Arial,sans-serif;font-size:12pt;"><b>De: </b>"Eder Comunello" <ecomunel@gmail.com><br><b>Para: </b>r-br@listas.c3sl.ufpr.br<br><b>Enviadas: </b>Sexta-feira, 2 de Novembro de 2012 10:47:40<br><b>Assunto: </b>Re: [R-br] somar valores em intervalo pré-definido<br><br><div>Lucas e colegas, bom dia!</div><div><br></div><div>Tem que operar com as datas no formato interno do R, só transformando pra visualizar.</div><div><br></div><div>Defini as datas de corte nas vars data.ini e data.fim...</div>

<div><br></div><div>Alterei todos os valores de p1$num para '1', então se a soma estiver correta corresponderá ao número de eventos selecionados.</div><div><br></div><div>Aqui deu certo! ;D</div><div><br></div><div>

####################</div><div><br></div><div>#Criando intervalo de datas</div><div>Data<-seq(from=as.Date('01/01/1980',format='%d/%m/%Y'),to=as.Date('31/12/1980',format='%d/%m/%Y'),by='day')</div>

<div><br></div><div>#transformando em data frame</div><div>p1 <- data.frame(Data)</div><div>p1$num <- 1</div><div>str(p1)</div><div><br></div><div>data.ini <- as.Date('11/11/1980',format='%d/%m/%Y')</div>

<div>data.fim <- as.Date('11/12/1980',format='%d/%m/%Y')</div><div>data.dif <- data.fim-data.ini+1; data.dif</div><div><br></div><div>#somando valores em um intervalo definido</div><div>sum(p1$num[p1$Data >= data.ini & p1$Data <= data.fim])</div>

<div><br></div><div>####################<br></div><div class="gmail_extra"><br clear="all"><div><br></div>-- <br><font face="arial, helvetica, sans-serif"><br><span style="font-size:small">================================================</span><br>

Éder Comunello<br><br>Ph.D. Student in Agricultural Systems Engineering (USP/ESALQ)<br>Piracicaba, SP, Brazil [22 42.7'S, 47 37.8'W]<br><br>Researcher at Embrapa Western Region Agriculture</font><div><font face="arial, helvetica, sans-serif">Dourados, MS, Brazil [</font>22 16.5'S, 54 49.0'W<span style="font-family:arial,helvetica,sans-serif">]</span></div>

<div><font face="arial, helvetica, sans-serif"><span style="font-size:small">================================================</span><br>UTC-03:00</font></div><br>

</div>

<br>_______________________________________________<br>R-br mailing list<br>R-br@listas.c3sl.ufpr.br<br>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<br>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</blockquote><br></div></body></html>