r语言 最优解 加和为1