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的贝叶斯变点分析代码中的随机生成数据如何换成自己的数据？