检查一下读取的数据是不是有问题,按如下操作即可:
dt<-data.frame(num=1:10,x=c(825,215,1070,550,480,920,1350,325,670,1215),y=c(3.5,1,4,2,1,3,4.5,1.5,3,5))
attach(dt)
m2.15<-lm(y~x)
print(m2.15)
运行结果:
F:\2022>Rscript "f:\2022\rtest\t13.r"
Call:
lm(formula = y ~ x)
Coefficients:
(Intercept) x
0.118129 0.003585
如有帮助请点采纳。