context("Unit tests for Manifold")
test_that("Tests instantiation of dimension",{
rand <- ceiling(10*runif(1))
manifold <- Manifold$new(dimension = rand)
result <- manifold$dimension
expected <- rand
expect_equal(result, expected)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.