附录5：居民收入样本基尼系数计算R程序