利用R语言进行数据统计绘制回归线

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
> testObj = read.csv("test.csv")
> plot(testObj$A,testObj$B)
> abline(line(testObj$A,testObj$B))
> mylm <- lm(testObj$A~testObj$B,data=testObj)
> mylm$coefficients
(Intercept)   testObj$B           //y = ax + b  y = 0.35x + 3.48  ？差的多
  3.4813403   0.3534005
> cor(testObj$A,testObj$B)
[1] 0.9986657
> line(testObj$A,testObj$B)
 
Call:
line(testObj$A, testObj$B)
 
Coefficients:
[1]  -7.0   2.8                 //y = ax + b  y = 2.8x - 7
 
> testObj
    A   B
1   5   7
2  10  21
3  15  35
4  20  49
5  25  63
6  30  77
7  35  80
8  40  90
9  45 119
10 50 133
11 55 147
12 60 161
13 65 175
14 70 189
15 75 203
16 80 217
17 85 231
18 90 245
19 95 259

2.效果:

 

posted @   三岁玩童  阅读(12)  评论(0)  编辑  收藏  举报
相关博文：
· const char* 二维数组
· function
· 使用机器学习对曲线进行线性回归
· 回归分析-代码
· R语言学习笔记（一）
阅读排行：
· 无需6万激活码！GitHub神秘组织3小时极速复刻Manus，手把手教你使用OpenManus搭建本
· Manus爆火，是硬核还是营销？
· 终于写完轮子一部分：tcp代理 了，记录一下
· 别再用vector＜bool＞了！Google高级工程师：这可能是STL最大的设计失误
· 单元测试从入门到精通
点击右上角即可分享
微信分享提示