test_that("assign_clust works", {
set.seed(1)
a <- clust_it(pop_epp)
a <- assign_clust(clustered = a)
expect_equal(length(a), 2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.