R语言 最优化 等式约束