Nothing
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]]))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.