tests/testthat/test-network.R

In insilico/Rinbix: Insilico Bioinformatics Toolbox

library(Rinbix)
context("Network")

test_that("getIGraphStats", {
	require(igraph)
	g <- erdos.renyi.game(1000, 1/1000)
	igstats <- getIGraphStats(g)
  expect_equal(igstats$nnodes, 1000)
})

test_that("prepareAdjacencyMatrix", {
  testAdj <- matrix(nrow=10, ncol=10, runif(100, 0, 2) - 1)
  softMat <- prepareAdjacencyMatrix(adjacencyMatrix=testAdj, 
                                    thresholdType="soft", 
                                    thresholdValue=2,
                                    useAbs=FALSE, 
                                    useWeighted=TRUE)
  expect_equal(softMat, testAdj ^ 2)
})

test_that("randomNetworkSim", {
	net <- randomNetworkSim(n=1000)
  expect_equal(ncol(net), 1000)
  expect_equal(nrow(net), 1000)
})

test_that("scaleFreeSim", {
	net <- scaleFreeSim(n=1000)
  expect_equal(ncol(net), 1000)
  expect_equal(nrow(net), 1000)
})