Почему не работает допуск wait_that в этом случае?

Question

Я работаю над тем, чтобы создать несколько тестов с этими ошибками;

options(stringsAsFactors=FALSE)

a <- data.frame(h_date = c("2017-12-31", "2018-12-31"),
                price = c(123.334, 567.348))

b <- data.frame(h_date = c("2017-12-31", "2018-12-31"),
                price = c(123.33, 567.34))

expect_equal(a, b, tolerence=0.1)

И я получаю следующую ошибку:

Error: `a` not equal to `b`.
Component "price": Mean relative difference: 0.00001737413

Чего мне не хватает?