test_that("integration doesn't drift", {
integrated_panc8 <- reintegrate_seu(panc8)
reintegrated_panc8 <- reintegrate_seu(integrated_panc8)
expect_equal(integrated_panc8@reductions$umap, reintegrated_panc8@reductions$umap)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.