Nothing
testthat::test_that("network module names are indexing correctly.", {
network <- create_empty_network(20)
network <- set_node_names(network, 1:20)
module <- create_empty_module(11:20)
struct <- random_module_structure(10)
module <- set_module_edges(module, struct)
network <- add_modules_to_network(network, module)
adj <- get_adjacency_matrix(network)
empty_struct <- matrix(0, 10, 10)
colnames(empty_struct) <- 1:10
module_struct <- get_adjacency_matrix(module)
expect_equal(adj[1:10, 1:10], empty_struct)
expect_equal(adj[11:20, 11:20], module_struct)
network <- random_network(100, avg_module_size = 20, sd_module_size = 10,
n_modules = 1)
adj <- get_adjacency_matrix(network)
mod5 <- network$modules[[1]]
adj_mod5 <- get_adjacency_matrix(mod5)
index <- mod5$nodes
expect_equal(adj[index, index], adj_mod5)
expect_equal(colnames(adj[index, index]), network$node_names[mod5$nodes])
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.