context('assess_growth')
ex <- assess_growth(assess_15, assess_16)
test_that('assess_growth returns data frame', {
expect_is(ex, 'data.frame')
})
test_that('assess_growth correctly calculates growth data', {
expect_equal(nrow(ex), 594514)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.