Nothing
#' @export
nep_2016 <- c(rep(15, 502), rep(16, 565), rep(17, 501), rep(18, 520),
rep(19, 534), rep(20, 527), rep(21, 442), rep(22, 463), rep(23,
461), rep(24, 413), rep(25, 450), rep(26, 442), rep(27,
398), rep(28, 406), rep(29, 398), rep(30, 420), rep(31,
305), rep(32, 371), rep(33, 349), rep(34, 344), rep(35,
346), rep(36, 310), rep(37, 305), rep(38, 349), rep(39,
274), rep(40, 326), rep(41, 254), rep(42, 257), rep(43,
239), rep(44, 260), rep(45, 293), rep(46, 223), rep(47,
213), rep(48, 229), rep(49, 173))
#' @export
nep_2011 <- c(rep(15, 569), rep(16, 511), rep(17, 571), rep(18, 587),
rep(19, 552), rep(20, 440), rep(21, 492), rep(22, 507), rep(23,
410), rep(24, 432), rep(25, 438), rep(26, 412), rep(27,
460), rep(28, 397), rep(29, 422), rep(30, 347), rep(31,
356), rep(32, 384), rep(33, 306), rep(34, 304), rep(35,
391), rep(36, 269), rep(37, 338), rep(38, 235), rep(39,
328), rep(40, 273), rep(41, 293), rep(42, 254), rep(43,
233), rep(44, 213), rep(45, 264), rep(46, 172), rep(47,
196), rep(48, 155), rep(49, 163))
#' @export
nep_2006 <- c(rep(15, 537), rep(16, 473), rep(17, 495), rep(18, 480),
rep(19, 452), rep(20, 401), rep(21, 402), rep(22, 451), rep(23,
369), rep(24, 419), rep(25, 340), rep(26, 445), rep(27,
349), rep(28, 346), rep(29, 290), rep(30, 280), rep(31,
251), rep(32, 307), rep(33, 211), rep(34, 282), rep(35,
245), rep(36, 295), rep(37, 235), rep(38, 259), rep(39,
215), rep(40, 221), rep(41, 216), rep(42, 259), rep(43,
172), rep(44, 229), rep(45, 187), rep(46, 198), rep(47,
159), rep(48, 182), rep(49, 141))
#' @export
nep_2001 <- c(rep(15, 46), rep(16, 120), rep(17, 210), rep(18, 280),
rep(19, 260), rep(20, 302), rep(21, 320), rep(22, 367), rep(23,
340), rep(24, 322), rep(25, 375), rep(26, 328), rep(27,
319), rep(28, 311), rep(29, 313), rep(30, 348), rep(31,
270), rep(32, 306), rep(33, 287), rep(34, 247), rep(35,
297), rep(36, 208), rep(37, 201), rep(38, 230), rep(39,
248), rep(40, 222), rep(41, 208), rep(42, 234), rep(43,
190), rep(44, 167), rep(45, 201), rep(46, 183), rep(47,
168), rep(48, 173), rep(49, 125))
#' @export
nep_1996 <- c(rep(15, 93), rep(16, 150), rep(17, 190), rep(18, 265),
rep(19, 257), rep(20, 327), rep(21, 274), rep(22, 351), rep(23,
294), rep(24, 383), rep(25, 367), rep(26, 337), rep(27,
337), rep(28, 313), rep(29, 237), rep(30, 330), rep(31,
229), rep(32, 271), rep(33, 237), rep(34, 296), rep(35,
242), rep(36, 256), rep(37, 206), rep(38, 212), rep(39,
212), rep(40, 251), rep(41, 182), rep(42, 190), rep(43,
167), rep(44, 147), rep(45, 225), rep(46, 159), rep(47,
139), rep(48, 140), rep(49, 163))
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.