Rubem, deu certo aqui. Obrigado! Só a cargo de curiosidade, outra solução que encontrei:
temp <- dados[!duplicated(data.frame(dados$ID,dados$CONTRATO,dados$INFO1,dados$INFO2)),] temp <- temp[duplicated(data.frame(temp$ID,temp$CONTRATO)),] temp <- temp[!duplicated(data.frame(temp$ID,temp$CONTRATO)),] On Fri, Nov 9, 2012 at 10:40 PM, Rubem Kaipper Ceratti < [email protected]> wrote: > Segue uma solução: > > library(data.table) > > funID <- function(x) nrow(unique(x)) > > dt.dados <- data.table(dados) > dt.dados[, list(N = funID(.SD)), by = list(ID, CONTRATO)][N > 1] > 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. > > att, > Rubem > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. >
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
