tests/testthat/test-eq_sol_fixed.R

test_that("Hydrocerussite solubility minimum is ~ 68 ppb", {
  expect_equal(round(eq_sol_fixed(9.8, 3.7, 0,  "Hydcerussite", element = "Pb")$pb_ppb), 68)
})
bentrueman/pbcusol documentation built on Oct. 25, 2024, 1:06 p.m.