附录7：收入模拟数据产生R程序