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)
结果：
转载请注明原文地址: https://www.6miu.com/read-2627683.html
