代码如下:
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)
【回归分析截距和斜率与0和1的差异】明明已经无限接近于y=x了,为什么斜率和1还会有显著差异
最新推荐文章于 2025-04-25 21:30:00 发布