3.8 线性回归的R语言实现