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.
