Rubem, deu certo aqui. Obrigado!<div><br></div><div>Só a cargo de curiosidade, outra solução que encontrei:</div><div><br></div><div><div>temp <- dados[!duplicated(data.frame(dados$ID,dados$CONTRATO,dados$INFO1,dados$INFO2)),]</div>
<div>temp <- temp[duplicated(data.frame(temp$ID,temp$CONTRATO)),]</div><div>temp <- temp[!duplicated(data.frame(temp$ID,temp$CONTRATO)),]</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Nov 9, 2012 at 10:40 PM, Rubem Kaipper Ceratti <span dir="ltr"><<a href="mailto:rubem_ceratti@yahoo.com.br" target="_blank">rubem_ceratti@yahoo.com.br</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:10pt;font-family:arial,helvetica,sans-serif"><div><span>Segue uma solução:<br></span></div><div style="font-style:normal;font-size:13.33px;background-color:transparent;font-family:"Arial"">
<span><br></span></div><div style="font-style:normal;font-size:13.33px;background-color:transparent;font-family:"Arial""><font face="Courier New, courier, monaco, monospace, sans-serif"><span>library(data.table)<br>
<br>funID <- function(x) nrow(unique(x))<br><br>dt.dados <- data.table(dados)<br>dt.dados[, list(N = funID(.SD)), by = list(ID, CONTRATO)][N > 1]</span></font><span></span></div><div><span></span></div><div>Eu ia dar a sugestão de usar um split + lapply + do.call, mas poderia ser problemático se houvesse um número grande de combinações ID x CONTRATO.</div>
<div><br></div><div style="font-style:normal;font-size:13.33px;background-color:transparent;font-family:"Arial"">att,</div><div style="font-style:normal;font-size:13.33px;background-color:transparent;font-family:"Arial"">
Rubem<br> </div><div style="font-size:10pt;font-family:"arial","helvetica",sans-serif"> </div>  </div></div><br>_______________________________________________<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" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>