tests/testthat/test-mrtree_umapkmeans.R

In pengminshi/MRtree: Multi-resolution Reconciled Tree

data("data_example", package = 'mrtree')
dat = data_example

test_that("UMAP+Kmeans clusterings with mrtree", {
    Ks = 5:8
    clust.out =  expect_error(sc_clustering.umap_kmeans(exprs=dat$counts, type='count',
                                                        Ks=Ks, estimate.k = TRUE), NA)

    out = expect_error(mrtree(clust.out$labelmat, prefix = 'umapkmeans'), NA)
    expect_equal(nrow(clust.out$labelmat), nrow(out$labelmat.mrtree))
})