tests/testthat/test_functions.R

In surveyvoi: Survey Value of Information

context("functions")

test_that("rcpp_log_sum", {
  expect_equal(rcpp_log_sum(c(log(3), log(4))), log(3 + 4))
})

test_that("rcpp_standard_error_value", {
  x <- rnorm(100)
  expect_equal(rcpp_standard_error_value(x), se(x))
})