适用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)