R语言ineq包Gini()函数的基尼系数计算公式问询

• 直接查看函数源码确认公式
  在R环境中运行getAnywhere(Gini)即可调出ineq包中Gini函数的具体实现代码。当前版本的ineq包中，Gini函数的核心计算逻辑完全对应Brown公式，简化后的核心代码片段如下：

  n <- length(x)
  x <- sort(x)
  G <- sum(x * 1:n)
  G <- 2 * G / sum(x) - (n + 1)
  G <- G / n
  

  该代码对应的数学公式为：
  $G = \frac{2}{n\mu}\sum_{i=1}^n i x_{(i)} - \frac{n+1}{n}$
  其中$x_{(i)}$是从小到大排序后的样本值，$\mu$为样本均值。

• 论文表述建议

  1. 明确说明：采用R语言ineq包的Gini()函数计算基尼系数，该函数基于Brown公式实现
  2. 补充说明：Brown公式是基尼系数定义（洛伦兹曲线与45°线围成面积的2倍）的代数推导形式，二者完全等价
  3. 可提及通过查看函数源码确认公式来源的方法，提升表述的严谨性

内容的提问来源于stack exchange，提问作者mr.questions