tests/testthat/test_focus.R

library(testthat)
library(domstruc)

data("allee1954_3")

focus_compare <- 0.7268178975399129

test_that("Focus reproduces correct result", {
  expect_equal(dom_focus(allee1954_3),
               focus_compare,
               tolerance = 1e-6)
})
danm0nster/domstruc documentation built on Feb. 12, 2020, 8:58 a.m.