test_that("clust_it works", {
a <- group_over(rbind(centers_epp, centers_epp[ 1:3,]))
expect_equal(nrow(a), 10)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.