context("HERC")
test_that("regular HERC", {
portfolio <- HERC(prices)
expect_true(sum(portfolio$w) - 1 < 1e-6)
expect_true(class(portfolio$tree) == 'hclust')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.