Nothing
test_that("Balinski Young Method works", {
# based on https://www.census.gov/history/www/reference/apportionment/methods_of_apportionment.html
pops <- c(2560, 3315, 995, 5012)
apprt <- app_balinski_young(20, pops)
expect_equal(apprt, c(4, 6, 1, 9))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.