Top one:
#回归分析-预测，R语言实战
#y=ax+b
#加载数据并处理
data(women)
#模型训练
fit<-lm(weight~height,data = women)
fit
#在测试集上做预测
predict(fit,women)
women$weight结果：
Top two:
#加载数据并处理
x<-1:100
y<-2*x
data<-data.frame(x,y)
#模型训练
fit<-lm(weight~height,data = women)
fit<-lm(y~x,data)
#在测试集上做预测
predict(fit,data)
#得到拟合率
pred<-predict(fit,data)
str(pred)结果：
