一元线性回归

马尔科夫

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

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

【R语言代码】(点击编辑器中"<>"插入代码)：

1. x=c(171,175,159,155,152,158,154,164,168,166,159,164)
   
2. y=c(57,64,41,38,35,44,41,51,57,49,47,46)
   
3. plot(x,y)#画出散点图
   
4. lxy<-function(x,y){n=length(x);sum(x*y)-sum(x)*sum(y)/n}#离均差积和函数
   
5. lxy(x,y)
   
6. lxy(x,x)
   
7. lxy(y,y)
   
8. r=lxy(x,y)/sqrt(lxy(x,x)*lxy(y,y))#x和y的相关系数
   
9. b=lxy(x,y)/lxy(x,x)
   
10. a=mean(y)-b*mean(x)#a,b都是回归系数
    
11. plot(x,y)
    
12. lines(x,a+b*x)#画出回归直线

复制代码

【运行结果】：

【参考出处】：
无

jhs1229

第7行多了一个）

rchina

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

修改好了，谢谢指出！

alwaysl

感谢分享！！！

ztc1

感谢分享,感谢!

yysunnyboy

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

刘凯

谢谢楼主分享

18580759074

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