Nothing
test_that("", {
skip_on_os("solaris")
set.seed(42)
g <- make_ring(10)
l <- layout_with_fr(g, niter = 50, start.temp = sqrt(10) / 10)
expect_true(
isTRUE(all.equal(sum(l), 4.57228, tolerance = 0.1))
)
set.seed(42)
g <- make_star(30)
l <- layout_with_fr(g, niter = 500, dim = 3, start.temp = 20)
expect_true(
isTRUE(all.equal(sum(l), -170.9312, tolerance = 0.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.