context("Function .ctrlWeight")
test_that(".ctrlWeight", {
hourweight <- rep(1, 24)
hourweight2 <- rep(1, 34)
expect_silent(.ctrlWeight(hourweight))
expect_error(.ctrlWeight(hourweight2), fixed = T, regexp = "Length of hourWeight must be 24")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.