获得回归斜率为零的测试的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