<div><span style="font-size: medium; color: #0000ff;">Nâo consegui rodar, veja o que deu:</span></div>
<div><span style="font-size: 12.8px;"> </span></div>
<div><span style="font-size: 12.8px;">teste <- data.frame(id=rep(1:3, each=10), ano=2016, mes=c(1:5,7,9:12,1:3,6:12,1:10))</span></div>
<div>
<div style="font-size: 12.8px;"><span style="font-size: 12.8px;">teste[unlist(sapply(split(teste, teste$identificador), function(x)c(TRUE, unlist(diff(x$mes) >= 3)))),]</span></div>
<div> </div>
<div>Erro em split.default(x = seq_len(nrow(x)), f = f, drop = drop, ...) : </div>
<div>  group length is 0 but data length > 0</div>
<div> </div>
</div>
<div>
<div> </div>
</div>
<div dir="ltr">Olá a todos,
<div> </div>
<div>Apliquei a solução proposta pelo Henrique na base completa e funcionou perfeitamente. A estrutura que eu tinha montado (com os dois loops) não tinha funcionado 100%, mas esta sim:</div>
<div> </div>
<div><span style="font-size: 12.8px;">teste[unlist(sapply(split(</span><span style="font-size: 12.8px;">teste, teste$identificador), function(x)c(TRUE, unlist(diff(x$mes) >= 3)))),]</span></div>
<div><span style="font-size: 12.8px;"> </span></div>
<div><span style="font-size: 12.8px;">Abraços e obrigado novamente.</span></div>
</div>
<div class="gmail_extra"><br />
<div>
<div class="gmail_signature" data-smartmail="gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div dir="ltr">
<div dir="ltr">
<div dir="ltr"><strong> </strong></div>
<div dir="ltr"><strong>Paulo Dick</strong>
<div>Estatístico / <span style="font-size: 12.8px;">Epidemiologia em Saúde Pública</span></div>
<div>Tel.: (55 21) 99591-2716</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<br />
<div class="gmail_quote"><span style="font-size: 12.8px;"> </span></div>
</div>