Предположим, вы объявили следующую функцию:
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
В пакете testthat expect_identical()
проверяет второе условие и в этом случае возвращает ошибку, хотя значение равно 121. Что является лучшей альтернативой для проверки вышеуказанной функции compound()
?