两个变量的Compare（）返回“等于”，但是same（）返回FALSE

Question

假设您声明了以下函数：

compound <- function(x,i,t) {
  x*(1+i)^t
}

以下结果的基本原理是什么

compare(compound(100, 0.1, 2),121) => 'Equal'

和

identical(compound(100, 0.1, 2),121) => FALSE

在软件包expect_identical()中检查第二个条件并在这种情况下返回失败，尽管该值是121。验证上述函数compound()的更好的替代方法是什么？