tests/testthat/test-complex-alpha.R

In rgudhi: An Interface to the GUDHI Library for Topological Data Analysis

test_that("Class `AlphaComplex` works", {
  ac <- AlphaComplex$new(
    "https://raw.githubusercontent.com/GUDHI/TDA-tutorial/master/datasets/tore3D_1307.off"
  )
  n <- 10
  Xl <- seq_circle(n)
  Xm <- Reduce(rbind, Xl, init = numeric())
  acm <- AlphaComplex$new(points = Xm)
  ac <- AlphaComplex$new(points = Xl)
  st <- ac$create_simplex_tree()
  expect_true(all(ac$get_point(0) == Xl[[1]]))
})