1
Я пытаюсь применить all.equal к нескольким объектам одновременно.применить all.equal к нескольким объектам
мой исходный код выглядит следующим образом:
all.equal(1,1.01, tolerance = 1e-1)
Это один из способов сделать это:
objs <- mget(c(1,1.01,1.02))
outer(objs, objs, Vectorize(all.equal))
, но я не могу понять, как включить утверждение толерантности.
Любые мысли?
Я получаю сообщение об ошибке при запуске вашей строки 'mget'. Я не уверен, что вы пытаетесь сделать, но, возможно, это так: 'sapply (x, FUN = function (x) {all.equal (1, x, tolerance = 1e-1)})' where 'x = c (1,1.01,1.02) ' – pcantalupo
возможно это ->' внешний (objs, objs, FUN = function (a, b, toler) {mapply (function (x, y) {all.equal (x, y , допускается)}, a, b)}, toler = 1e-1) ' – digEmAll
это правильно – ulrich