tests/testthat/test_getNeighborsForModule.R

testthat::context("Testing getting the neighbors for a module")

testthat::test_that("Test simple graph",{
    
    ig <- graph_from_data_frame(data.frame(from=c(1, 2, 3), to=c(2, 4, 5)), directed = FALSE)
    
    testthat::expect_equal(getNeighborsForModule(ig, c(1,2)), c(4))
})
krumsieklab/MoDentify documentation built on March 24, 2021, 9:01 p.m.