tests/testthat/test-create_lambda.R

In rtestim: Estimate the Effective Reproductive Number with Trend Filtering

test_that("create_lambda works", {
  # should be an increasing sequence
  expect_equal(
    create_lambda_test(double(10), .1, 10, 1e-4, 10),
    10^(seq(log10(10), log10(.1), length.out = 10))
  )
  expect_equal(
    create_lambda_test(10:1, .1, 10, 1e-4, 10),
    as.double(10:1)
  )
  expect_equal(
    create_lambda_test(double(10), -1, 10, 1e-4, 10),
    10^(seq(log10(10), log10(1e-3), length.out = 10))
  )
})