r - 回帰の勾配がゼロであるという検定の t 統計量を取得します。

Question

私は毎年、4 つの異なる国の出生率に関するデータを持っています。コードを使用して、このデータに 4 つの単純な回帰直線を当てはめました。

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 統計量を計算することです。どうすればよいですか? また、回帰直線でグラフを印刷/表示する方法は?