tests/testthat/test-sumcpp.R
x <- runif(1000000, 0.0000001, 1.99999999)
test_that("sumcpp() should return the same output as base sum()", {
expect_equal(
object = sumcpp(x),
expected = sum(x)
)
})
x <- runif(1000000, 0.0000001, 1.99999999)
test_that("sumcpp() should return the same output as base sum()", {
expect_equal(
object = sumcpp(x),
expected = sum(x)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
