如何在 R 中从线性回归中提取 p 值和 R 平方?
我们可以使用带有 $r.squared 的回归模型对象名称来查找 R 平方,并使用用户自定义函数来提取 p 值。
示例
提取 R 平方
> x<-c(32,37,68,87,32,43) > y<-c(12,8,6,3,5,3) > LinearRegression<-lm(y~x) > summary(LinearRegression)$r.squared [1] 0.2814271
提取 p 值
> Regressionp <- function (modelobject) { if (class(modelobject) != "lm") stop("Not an object of class 'lm' ") f <- summary(modelobject)$fstatistic p <- pf(f[1],f[2],f[3],lower.tail=F) attributes(p) <- NULL return(p) > Regressionp(LinearRegression) [1] 0.2789025
广告