Alguém poderia me dar uma dica com esse problema?

Estou tentando agregar um conjunto de dados, calculando o gini (pacote reldist), que recebe a variável principal e uma variável de ponderação - gini(x, weights=rep(1,length=length(x))).

Minha dificuldade é passar os dois argumentos para a função.

library(reldist)

ineq_df<-read.csv("amostra_input.csv")

aggregate(c(qtd,renda)~cod_setor,data=ineq_df,gini)

--