<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># ================================================================================</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># ================================================================================<br></div><div><br></div><div>Abs,</div><div>Karina</div><div><br></div></div><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">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="gmail_msg">
<br class="gmail_msg">
Bem correto seus comentários Cesar, não compreendi bem o problema.<br class="gmail_msg">
<br class="gmail_msg">
segue sugestão:<br class="gmail_msg">
<br class="gmail_msg">
data = seq(as.Date('2016-01-01'), as.Date('2016-12-31'), by = 1)<br class="gmail_msg">
DF =  data.frame(data, N = 1:366)<br class="gmail_msg">
<br class="gmail_msg">
DF[DF$data > "2016-02-05" & DF$data < "2016-02-10",]<br class="gmail_msg">
<br class="gmail_msg">
ou<br class="gmail_msg">
<br class="gmail_msg">
subset(DF, data > "2016-02-05" & DF$data < "2016-02-10")<br class="gmail_msg">
<br class="gmail_msg">
<br class="gmail_msg">
saudações<br class="gmail_msg">
<br class="gmail_msg">
_______________________________________________<br class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div>