eu sei que fui eu quem escreveu a funcao... mas eu jah nao sei o contexto, nem o exemplo (reproduzivel) de dados a ser empregado... a sugestao eh conforme o email anterior: modifique seu codigo de forma a ter: cut(coord, unique(bins), labels=FALSE, include.lowest=T) ao inves de: cut(coord, bins, labels=FALSE, include.lowest=T) uma vez q fizer essa modificacao, vc *nao* deve usar: do.call(rbind, lapply(split(tmp, tmp$codigo), function(y) equantileByCounts(y$qtd, y$val, c(.25, .75)))) mas apenas lapply(split(tmp, tmp$codigo), function(y) equantileByCounts(y$qtd, y$val, c(.25, .75))) pois os resultados ja nao terao mais o mesmo comprimento. b