tests/testthat/test-seurat_integrate.R

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)
})
whtns/seuratTools documentation built on April 9, 2024, midnight