r - 如何在testthat框架中设置expect_equal的容差

Question

我想知道在 R 中是否可以使用testthat测试框架来设置相等的容差。

目前，如果example.R是：

library(testthat)
three_times<-function(x) 3*x

context('Test three_times')
test_that('Three times returns 3 times x',{
    expect_equal(three_times(3),9)
    expect_equal(three_times(pi),9.4247)
})

并用 执行test_file('example.R','stop')，第一个测试通过，但第二个测试失败：

 Error: Test failed: 'Three times returns 3 times x'
Not expected: three_times(pi) not equal to 9.4247
Mean relative difference: 8.271963e-06. 

是否可以为平均相对差设置更高的误差阈值？例如 1e-3。我有一些只有小数点后 3 位精度的预期结果，这意味着现在我的测试总是失败......

Answer 1

您可以传递参数scale或tolerance. 这些参数被传递给all.equal.

expect_equal(three_times(pi),9.4247, tolerance=1e-8)
Error: three_times(pi) not equal to 9.4247
Mean relative difference: 8.271963e-06

expect_equal(three_times(pi),9.4247, tolerance=1e-3)

查看?all.equal更多帮助