找到最接近零而不返回负数的函数 - R.

Question

我正在做一些线性回归，并用我在 R 编写的程序测试一堆数据。

在实施线性模型lm()之后，我得到了这个：

>>summary(model2)$coef[,3]

(Intercept)         sex         fat       fiber     alcohol        chol
 19.2786166  -6.1693274   2.5304990   3.0357110   1.3205717  -0.8407960

要找到零的壁橱，我这样做：

mn <- min(abs(summary(model2)$coef[,3]-0))

>> mn
[1] 0.840796

但是，mn应该是否定的。如何调整我的方法以返回否定版本？ （我需要它是消极的，因为我把它放在后面）。

提前致谢。

Answer 1

我愿意：

closest.to.zero <- function(x) x[which.min(abs(x))]

closest.to.zero(summary(model2)$coef[,3])