Nothing
library(testthat)
context("tests")
load("flo_results.RData")
test_that("metrics work as expected", {
expect_less_than(sum(abs(influenceR::betweenness(flo_graph) - flo_bet)), 0.1) # some instability in betweenness results
expect_equal(influenceR::ens(flo_graph), flo_ens)
expect_equal(influenceR::constraint(flo_graph), flo_constraint)
expect_equal(influenceR::bridging(flo_graph), flo_bridge)
})
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.