tests/testthat/test-fcoex.R

In lubianat/fcoex: FCBF-based Co-Expression Networks for Single Cells

context("fcoex methods")

ncells <- 100
my_counts_matrix <- data.frame(matrix(rpois(20000, 5), ncol = ncells))
target <- as.factor(c(rep("A",50), rep("B",50)))
fc <- new("fcoex", expression=my_counts_matrix, target)
fc <- discretize(fc)
fc <- find_cbf_modules(fc, n_genes = 100)


gmt <- system.file('extdata', 'pathways.gmt', package='CEMiTool')
gmt <- read_gmt(gmt)

test_that("initializer works", {
  expect_is(fc, "fcoex")
})


test_that("discretization works", {
  expect_is(fc@discretized_expression, "data.frame")
})


test_that("module finder works", {
  expect_is(fc@module_list, "list")
})