Nothing
#' @export
afgan_2015 <- c(rep(15, 5), rep(16, 4), rep(17, 4), rep(18, 16), rep(19, 26),
rep(20, 47), rep(21, 24), rep(22, 37), rep(23, 37), rep(24, 23),
rep(25, 75), rep(26, 33), rep(27, 39), rep(28, 75), rep(29, 49),
rep(30, 86), rep(31, 20), rep(32, 35), rep(33, 21), rep(34, 14),
rep(35, 54), rep(36, 30), rep(37, 28), rep(38, 43), rep(39, 35),
rep(40, 37), rep(41, 25), rep(42, 27), rep(43, 29), rep(44, 20),
rep(45, 45), rep(46, 27), rep(47, 30), rep(48, 49), rep(49, 33))
#' @export
afgan_2010 <- c(rep(15, 2597), rep(16, 2493), rep(17, 1914),
rep(18, 2886), rep(19, 1532), rep(20, 3108), rep(21, 1074),
rep(22, 1728), rep(23, 1060), rep(24, 1129), rep(25, 2247),
rep(26, 962), rep(27, 957), rep(28, 1269), rep(29, 631),
rep(30, 1985), rep(31, 419), rep(32, 748), rep(33, 521),
rep(34, 590), rep(35, 1674), rep(36, 565), rep(37, 560),
rep(38, 902), rep(39, 463), rep(40, 1685), rep(41, 275),
rep(42, 538), rep(43, 331), rep(44, 385), rep(45, 1169),
rep(46, 322), rep(47, 347), rep(48, 586), rep(49, 215))
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.