<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>