Nothing
set.seed(123)
test_that("small-world metrics for two mode networks are calculated and displayed correctly", {
expect_s3_class(net_smallworld(ison_southern_women), "network_measure")
expect_equal(as.numeric(net_smallworld(ison_southern_women)), -0.94, tolerance = 0.02)
})
# test_that("net_balance works", {
# out <- net_balance(ison_marvel_relationships)
# expect_s3_class(out, "network_measure")
# expect_equal(as.numeric(out), 0.668, tolerance = 0.01)
# expect_length(out, 1)
# expect_error(net_balance(ison_adolescents))
# })
test_that("net_modularity works for two mode networks", {
out <- net_modularity(ison_southern_women,
node_in_partition(ison_southern_women))
expect_s3_class(out, "network_measure")
expect_length(out, 1)
})
test_that("net_core works", {
out <- net_core(ison_adolescents)
expect_s3_class(out, "network_measure")
expect_length(out, 1)
})
test_that("net_factions works", {
out <- net_factions(ison_adolescents)
expect_s3_class(out, "network_measure")
expect_length(out,1)
})
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.