Nothing
tests/testthat/test-balinski_young.R
In apportion: Apportion Seats
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))
})
Try the apportion package in your browser
Any scripts or data that you put into this service are public.
apportion documentation built on Feb. 16, 2023, 7:19 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
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))
})
Try the apportion package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.