R语言梯度下降法代码附解释