tests/testthat/test_dAllocate.R

In Theorell/DepecheR: Determination of essential phenotypic elements of clusters in high-dimensional entities

# dAllocate

context("dAllocate")
cols <- 150
x <- DepecheR:::generateBimodalData(observations = 20, dataCols = cols)
centers <- rbind(runif(cols) + 50, runif(cols) - 50)
out <- dAllocate(x$samples, list("clusterCenters" =centers, 
                                 "logCenterSd" = FALSE))
test_that("dAllocate expected output", {
    expect_true(all(out == x$ids))
})

# Here, we are comparing if allocating the same data to the cluster centers
# genreated with depeche gives an ARI
# of 1, which it should
colnames(x[[1]]) <- paste0("V", seq_len(ncol(x[[1]])))
depRes <- depeche(x[[1]], center = FALSE, nCores = 2, createOutput = FALSE)
allocRes <- dAllocate(x[[1]], depRes)
test_that("dAllocate expected output", {
    expect_true(DepecheR:::rand_index(depRes$clusterVector, allocRes,
        k = 100
    ) == 1)
})