Nothing
context("Converting directed networks to data frames")
test_that("Created edgelist has appropriate number of edges", {
l <- asDF(exNetwork)
expect_equal( nrow(l$edges), network::network.edgecount(exNetwork))
} )
test_that("Created vertex data frame has correct number of vertices", {
l <- asDF(exNetwork)
expect_equal( nrow(l$vertexes), network::network.size(exNetwork))
} )
context("Converting undirected networks to data frames")
test_that("Created edgelist has appropriate number of edges", {
l <- asDF(exNetwork2)
expect_equal( nrow(l$edges), network::network.edgecount(exNetwork))
} )
test_that("Created vertex data frame has correct number of vertices", {
l <- asDF(exNetwork2)
expect_equal( nrow(l$vertexes), network::network.size(exNetwork))
} )
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.