tests/testthat/test-scaleCurve.R

context("Scale curve tests")

test_that(
"Fix QH6114 qhull precision error:
initial simplex is not convex. Distance=8.7e-19
for xdata", {

  xdata <- structure(
    c(-0.19607854, -0.19607854, -0.26348042, 0.002450943,
      0.002450943, 0.051470518),
    .Dim = 3:2,
    .Dimnames = list(NULL, c("x", "y"))
  )
  sc <- scaleCurve(xdata)
  expect_equal(unique(sc@.Data), 0)
})

Try the DepthProc package in your browser

Any scripts or data that you put into this service are public.

DepthProc documentation built on Feb. 4, 2022, 1:07 a.m.