1、首先找一个你想要放的文件夹，把数据写进去，命名为txt文件

2.0 3.3 4.0
3.3 2.0 3.7
4.0 4.3 4.0
2.3 0.0 3.3
2.3 1.0 3.3
3.3 3.7 4.0

记住这个文件的位置哦!

2、查看路径和更改路径

如果你不更改数据，直接读入数据，是读不到的，演示一下：

因为当前路径不对，它找不到这个文件
所以先查看一下当前路径：

getwd()

你就可以看到你当前的路径
然后利用setwd()函数可以更改路径

setwd("D:/R_files/code") #注意复制的路径要改一下：之间是"/"

可以看到这里的位置改变了
再次读入就可以了

3、读入数据文件

examsquiz <- read.table("ExamsQuiz.txt",header = FALSE)
class(examsquiz)
head(examsquiz)

运行结果：

可以看出examsquiz是数据框类的R对象
由于缺少数据表头行，R自动把列名设置为V1…，行号出现在每行的最左边，一般都设置表头，初学先不设置

4、调用lm()函数

首先我们需要知道lm()函数是什么
lm=linear model=线性模型
最简单的就是 y = ax+b

返回的值中红框里是我们需要的数据：Intercept=截距，后面那个代表系数
详细但我可以去看：lm函数
此处调用：

lma <- lm(examsquiz[,2]~examsquiz[,1])
lma

结果如图：

attributes（）函数可以列出它的所有组件：

但是我们可以看到lma只打印了一部分组件，这是因为：
获得我们所需要的值还可以通过组件的方式：

可以用泛型函数summary()打印出lma更详细的内容，它实际上在后台调用了summary.lm()，得出针对某个特定回归模型的摘要