inst/tinytest/test_pcoa.R

# PCoA =========================================================================
data("iris")

d <- dist(iris[, 1:4], method = "euclidean")
res <- pcoa(d)

expect_equal_to_reference(get_coordinates(res), file = "_snaps/pcoa_points.rds")

Try the dimensio package in your browser

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

dimensio documentation built on Sept. 11, 2024, 8:35 p.m.