PPeng_PPeng的博客

原创 【回归分析截距和斜率与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)

原创 【R语言】回归分析-斜率、截距与1和0的差异

打开文件setwd(“D:/试验数据/行为学/观察结果/”)library(“openxlsx”)a<-read.xlsx(“采样方法.xlsx”)states<- as.data.frame(a[, c(“x”,“y”)])进行线性回归fit <- lm(x~y, data = states)summary(fit)绘制散点图plot(statesx,statesx, statesx,statesy)abline(fit)斜率与1的差异性library(simba

原创 Python的贝叶斯变点分析代码中的随机生成数据如何换成自己的数据？