tests/testthat/test-DB.R

In javateak: Javanese Teak Above Ground Biomass Estimation

describe("DB()", {
  it("can estimate the stem diameter at the lowest major living branch.", {
    expect_equal(DB(20), 16.05529)
    expect_equal(DB(0), 0)
  })
  it("return `NA` when the diameter inputed is NA.", {
    expect_equal(DB(NA), NA)
  })
})