library(surveytools)
context('survey_size')
test_that("sample_size returns a 5 x 2 dataframe", {
expect_equal(class(survey_size(population_size = 100)), 'data.frame')
expect_equal(survey_size(population_size = 20000)$Value[[1]], 377)
expect_equal(nrow(survey_size(population_size = 100)), 5)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.