tests/testthat/test-organic_carbon.R

In springgbv/Open-Bodem-Index-Calculator: Calculate the Open Bodem Index (OBI) Score

test_that("calc_organic_carbon works", {
  expect_equal(
    calc_organic_carbon(
      A_SOM_LOI = 5,
      D_BDS = 1000, 
      D_RD = 0.3
    ),
    expected = 87000,
    tolerance = 10
  )
  expect_equal(
    calc_organic_carbon(
      A_SOM_LOI = c(5, 10, 15, 20, 25),
      D_BDS = c(1300, 1100, 1000, 900, 800) , 
      D_RD = c(0.3, 0.3, 0.1, 0.1, 0.1)
    ),
    expected = c(113100, 191400, 87000, 104400, 116000),
    tolerance = 10
  )
})