我执行了简单的线性回归，并使用summary（）进行了两尾t检验，回归系数是否显着不同于0。
lmb <- lm(logspec ~ logfreq)
我想进行一次单尾t检验，检验回归系数是否小于1。
我在以前的线程中读到过有关使用offset（）将比较值设置为不同于0的情况，但是我不确定它是否可以完成我想看到的事情：
t <- lm(logspec ~ logfreq + offset(1*logfreq))
我相信执行单尾t检验的一种可能方法如下：
res <- summary(lmb)
d <- pt(coef(res)[, 3], lmb$df, lower.tail=FALSE)
其中上尾是感兴趣的一个，并且计算了t分布的分位数，但是在这里我也不完全确定这是否与我想要实现的目标有关。
因此，我找到了这两种方法，其目的是将比较值设置为不同于0的值并执行单尾t检验，但是我不确定它们是否是可行的方法，以及是否（以及如何）可行结合两者吗？