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

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

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统计量。 我该怎么做？ 另外，如何打印/显示带有回归线的图形？

示例：

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

(Intercept)         cyl 
      18.27       -8.92 

---

在寻求帮助时，您应该包括一个简单的示例输入和所需的输出，可用于测试和验证可能的解决方案。每个帖子一次只能问一个问题。好的！谢谢你的提示！