tests/testthat/test-lOR_estimation.R

In bonsaiforest: Shrinkage Based Forest Plots

test_that("lor_estimation outputs the right element", {
  result <- lor_estimation(
    design_matrix1, design_dummy1,
    est_coef_bin1
  )
  expected <- -0.4630356
  expect_equal(result, expected, tolerance = 0.00001)
})