r - 获得回归斜率为零的检验的 t 统计量

Question

我每年都有四个不同国家的出生比例数据。我使用代码用四个简单的回归线拟合了这些数据：-

mbirthprop <- read.csv("ex0724.csv")
attach(mbirthprop)
summary(lm(Denmark~Year))
summary(lm(Netherlands~Year))
summary(lm(Canada~Year))
summary(lm(USA~Year))

目标是使用 R 计算回归斜率为零的测试的 t 统计量。我该怎么做？另外如何打印/显示带有回归线的图形？

Answer 1

一个例子：

fit <- lm(mpg ~ cyl, mtcars)
sfit <- summary(fit)
sfit$coefficients[,c("t value")]

(Intercept)         cyl 
      18.27       -8.92