tests/testthat/test-scatteR.R

test_that("scatteR catches Monotonic", {
  d <- scatteR(measurements = c("Monotonic" = 1),n_points = 25,init_points = 5)
  r <- scagnostics::scagnostics(d)
  print(r)
  expect_lte(abs(r["Monotonic"]-1.0),0.05)
})
janithwanni/scatteR documentation built on March 1, 2023, 6:08 a.m.