tests/testthat/test-herc.R

context("HERC")

test_that("regular HERC", {
    portfolio <- HERC(prices)
    expect_true(sum(portfolio$w) - 1 < 1e-6)
    expect_true(class(portfolio$tree) == 'hclust')
})
jackylauu/hierarchicalPortfolios documentation built on Dec. 20, 2021, 8:06 p.m.