R中的假设检验

我目前正在做数据集的线性回归。我需要检验假设H0:B1=0与H1:B1=/=0的显著性lvl a=0.05，并找到p值。我运行命令

summary（lm（y~x~）

，

p值为0.02781

，但是当我尝试

t.test（x，y）

时，我得到了

p值=5.71e-15

这是为什么？

摘要的p值对应于回归模型beta的t检验。如果运行t.test（x，y），则测试x和y的平均值是否相等，这与测试B1是否等于/不等于零无关。

请提供