论坛 › R语言代码实例分享 › 一元线性回归

马尔科夫 发表于 2014-2-28 19:00:47

一元线性回归

【作者】(必填)：马尔科夫

【问题描述】(必填)：
       对二维数据，画出散点图，并画出回归线。

【R语言代码】(点击编辑器中"<>"插入代码)：x=c(171,175,159,155,152,158,154,164,168,166,159,164)
y=c(57,64,41,38,35,44,41,51,57,49,47,46)
plot(x,y)#画出散点图
lxy<-function(x,y){n=length(x);sum(x*y)-sum(x)*sum(y)/n}#离均差积和函数
lxy(x,y)
lxy(x,x)
lxy(y,y)
r=lxy(x,y)/sqrt(lxy(x,x)*lxy(y,y))#x和y的相关系数
b=lxy(x,y)/lxy(x,x)
a=mean(y)-b*mean(x)#a,b都是回归系数
plot(x,y)
lines(x,a+b*x)#画出回归直线【运行结果】：

【参考出处】：
无

jhs1229 发表于 2014-4-7 10:37:36

第7行多了一个）

rchina 发表于 2014-4-13 16:22:30

jhs1229 发表于 2014-4-7 10:37
第7行多了一个）

修改好了，谢谢指出！

alwaysl 发表于 2014-4-21 21:55:03

感谢分享！！！

ztc1 发表于 2015-12-21 08:55:04

感谢分享,感谢!:)

yysunnyboy 发表于 2016-2-3 00:12:10

不是有 lm() 这个函数可以直接用的吗？！

刘凯 发表于 2017-4-12 22:48:26

谢谢楼主分享

18580759074 发表于 2021-7-20 09:30:14

第1、2行的赋值形式不对吧？

查看完整版本: 一元线性回归