将all.equal应用于多个对象

Question

我正在尝试同时将all.equal应用于多个对象。

我的初始代码如下：

all.equal(1,1.01, tolerance = 1e-1)

这是一种方法：

objs <- mget(c(1,1.01,1.02))
outer(objs, objs, Vectorize(all.equal))

但我无法弄清楚如何包含容差声明。

有什么想法吗？

Answer 1

这个怎么样？

vec = c(1,1.01,1.02)
all(abs(diff(vec)) <= 0.01 + .Machine$double.eps)