Nothing
# Tests for PathwaySpace-class methods
test_that("Check PathwaySpace-class methods", {
data("gtoy1", package = "RGraphSpace")
pts <- buildPathwaySpace(gtoy1, nrc = 30)
expect_true(is(pts, "PathwaySpace"))
})
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.