【回归分析截距和斜率与0和1的差异】明明已经无限接近于y=x了，为什么斜率和1还会有显著差异

代码如下：
library(simba)
x <- a[, c(“x”)]
y <- a[, c(“y”)]
x1 <- a[, c(“x”)]
y1 <- a[, c(“y1”)]
plot(x1,y1)
points(x1,y1,col=2)
abline(lm(y1~x1))
diffslope(x,y,x1,y1)
diffic(x,y,x1,y1)