#------------------------------------------------------------------------------
## Test wt_sup
#------------------------------------------------------------------------------

test_that("wt_sup calculates correctly", {
  result <- wt_sup(w = 30, rm = 200, v = 5)
  expect_equal(result, 0.2866, tolerance = 0.01)
})