R 对多个对象应用all.equal

我正在尝试同时应用所有等于多个对象的对象

我的初始代码如下：

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

这是一种方法：

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

objs这个怎么样

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

vec=c（1,1.01,1.02）
全部（abs（diff（vec））这个呢

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

vec=c（1,1.01,1.02）
all（abs（diff（vec））我在运行你的
mget
行时出错。我不确定你想做什么，但可能是这样：
sapply（x，FUN=function（x）{all.equal（1，x，容差=1e-1）}
其中
x=c（1，1.01，1.02）
可能是这个-->
outer（objs objs，objs，FUN=function（a，b，toler）{mapply（function（x，y）{all.equal（x，y，toler）}，a，b）}，toler=1e-1）
我在运行你的
mget
行时出错。我不确定你想做什么，但可能是这样的：
sapply（x，FUN=function（x）{all.equal（1，x，公差=1e-1）}
其中
x=c（1,1.01,1.02）
可能是这个-->
outer（objs objs objs FUN=function（a，b，toler=function）{（x，y）{all.equal（x，y，toler）}，a，b）}，toler=1e-1）