Nothing
n <- 10
X <- seq_circle(n)
ac <- AlphaComplex$new(points = X)
st <- ac$create_simplex_tree()
dgm <- st$compute_persistence()$persistence_intervals_in_dimension(0)
ds <- DiagramSelector$new(use = TRUE)
dgm <- ds$apply(dgm)
test_that("The BottleneckDistance class works", {
dis <- BottleneckDistance$new()
expect_snapshot(dis$apply(dgm, dgm))
expect_snapshot(dis$fit(list(dgm))$transform(list(dgm)))
expect_snapshot(dis$fit_transform(list(dgm)))
})
test_that("The PersistenceFisherDistance class works", {
skip_on_os("linux") # needs to monitor if it fixes itself or what
dis <- PersistenceFisherDistance$new()
expect_snapshot(dis$apply(dgm, dgm))
expect_snapshot(dis$fit(list(dgm))$transform(list(dgm)))
expect_snapshot(dis$fit_transform(list(dgm)))
})
test_that("The SlicedWassersteinDistance class works", {
dis <- SlicedWassersteinDistance$new()
expect_snapshot(dis$apply(dgm, dgm))
expect_snapshot(dis$fit(list(dgm))$transform(list(dgm)))
expect_snapshot(dis$fit_transform(list(dgm)))
})
test_that("The WassersteinDistance class works", {
dis <- WassersteinDistance$new()
expect_snapshot(dis$apply(dgm, dgm))
expect_snapshot(dis$fit(list(dgm))$transform(list(dgm)))
expect_snapshot(dis$fit_transform(list(dgm)))
})
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.