R base中的all.equal（）不返回TRUE

Question

我想知道为什么all.equal()没有为以下数据返回TRUE：

Like.prob = dbinom(x = 0:2, size = 2, prob = .7)
sim.obs   = rbinom(n = 1e6, size = 2, prob = .7)

sim.Like.prob = unname( table(sim.obs) / 1e6 )[1:3]

all.equal(Like.prob, sim.Like.prob, tolerance = .01) ## Here I expect a TRUE

Answer 1

在比较它们之前，只需确保两个元素具有相同的类：

class(Like.prob)
class(sim.Like.prob)
all.equal(Like.prob, as.numeric(sim.Like.prob), tolerance = .01)