library(mansched)
hol <- getHol(hol = holidays, year = 2018)
mdtProb <- getMDTProb(hol = hol)
test_that("getMDTProb() returns the correct total prob", {
expect_equal(sum(mdtProb[,c(1:8)]),
12)
})
rm(list = ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.