<div dir="ltr">Excelente exemplo Karina!<div><br></div><div>Eu tinha esquecido do lubridate. . . não uso há anos, literalmente.</div><div><br></div><div>Quanto ao exemplo do salah, a linha:</div><div><br></div><div><span style="font-size:12.8px">> subset(DF, data > "2016-02-05" & DF$data < "2016-02-10")</span><br></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">pode ser (IMHNHO melhor):</span></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">> </span><span style="font-size:12.8px">subset(DF, data > "2016-02-05" & data < "2016-02-10")</span></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">Ademais, <u>acho</u> que o Amiko quer os dias do Carnaval <u>inclusive</u>, por isso, acho que a linha correta do subset seria:</span></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">> subset(DF, data >= "2016-02-05" & data <= "2016-02-10")</span><br></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">HTH</span></div><div><span style="font-size:12.8px">--</span></div><div><span style="font-size:12.8px">Cesar Rabak</span></div><div><span style="font-size:12.8px"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-01-24 6:31 GMT-02:00 Karina Rebuli via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><br><div>Para verificar se uma data está contida num intervalo, tem o operador %within% do lubridate.</div><div><br></div><div>Não entendi muito bem se era para lidar com dados de vários anos ou apenas do ano corrente, então o código abaixo funciona para vários anos. Também não sabia se você já tem a lista de datas de início e fim do carnaval, então fiz como se não a tivesse. Veja quais partes do código serão úteis.</div><div><div><br></div><div># ==============================<wbr>==============================<wbr>====================</div><div><br></div><div># Package for creation and validation of dates interval</div><div>if( !require( lubridate ) ){ install.packages('lubridate'); library(lubridate); }</div><div><br></div><div># Data simulation</div><div>dates <- seq( from = as.Date("2010-01-01"), to = as.Date("2017-12-31"), by = 1 )</div><div><br></div><div># Carnival begin and finish dates</div><div>carnivals <- data.frame( d0 = as.Date( timeDate::Easter( 2010:2017 ) )-51</div><div> , d1 = as.Date( timeDate::Easter( 2010:2017 ) )-46 )</div><div><br></div><div># Checks which dates are within (%within% operand from lubridate package) carnivals intervals</div><div>dates[ sapply( interval( carnivals$d0, carnivals$d1 )</div><div> , function( x ){ which( dates %within% x ) }) ]</div></div><div><br></div><div># ==============================<wbr>==============================<wbr>====================<br></div><div><br></div><div>Abs,</div><div>Karina</div><div><br></div></div><div class="HOEnZb"><div class="h5"><br><div class="gmail_quote"><div dir="ltr">On Mon, Jan 23, 2017 at 6:43 PM salah via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">olá<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
Bem correto seus comentários Cesar, não compreendi bem o problema.<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
segue sugestão:<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
data = seq(as.Date('2016-01-01'), as.Date('2016-12-31'), by = 1)<br class="m_2027600485811893144gmail_msg">
DF = data.frame(data, N = 1:366)<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
DF[DF$data > "2016-02-05" & DF$data < "2016-02-10",]<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
ou<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
subset(DF, data > "2016-02-05" & DF$data < "2016-02-10")<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
saudações<br class="m_2027600485811893144gmail_msg">
<br class="m_2027600485811893144gmail_msg">
______________________________<wbr>_________________<br class="m_2027600485811893144gmail_msg">
R-br mailing list<br class="m_2027600485811893144gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="m_2027600485811893144gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="m_2027600485811893144gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="m_2027600485811893144gmail_msg" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br class="m_2027600485811893144gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="m_2027600485811893144gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div>
</div></div><br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>