tests/testthat/test-get_dose.R

In dreamer: Dose Response Models for Bayesian Model Averaging

test_that("misc helper functions", {
  expect_equal(solve_quad(1, .01, 1), rep(NA_real_, 2))
  expect_equal(expand_mean_time(1:2, matrix(1, 1, 1)), 1:2)
  expect_equal(get_min_dose(matrix(NA, 2, 5)), rep(NA_real_, 5))
  expect_equal(get_min_na(numeric(0)), NA_real_)
})