test_that("relativeCumulatedSum() works", {
expect_identical(relativeCumulatedSum(1), 100)
expect_identical(lastElement(relativeCumulatedSum(1:10)), 100)
expect_identical(order(relativeCumulatedSum(1:5)), 1:5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.