Nothing
#' @export
mal_2016 <- c(rep(15, 186), rep(16, 227), rep(17, 201), rep(18,
203), rep(19, 198), rep(20, 201), rep(21, 197), rep(22, 212),
rep(23, 247), rep(24, 261), rep(25, 243), rep(26, 291), rep(27,
312), rep(28, 299), rep(29, 311), rep(30, 305), rep(31,
328), rep(32, 295), rep(33, 242), rep(34, 254), rep(35,
259), rep(36, 211), rep(37, 224), rep(38, 187), rep(39,
182), rep(40, 184), rep(41, 152), rep(42, 176), rep(43,
163), rep(44, 177), rep(45, 176), rep(46, 171), rep(47,
171), rep(48, 140), rep(49, 113))
#' @export
mal_2009 <- c(rep(15, 0), rep(16, 0), rep(17, 4), rep(18, 31),
rep(19, 94), rep(20, 172), rep(21, 246), rep(22, 288), rep(23,
337), rep(24, 338), rep(25, 301), rep(26, 333), rep(27,
304), rep(28, 295), rep(29, 295), rep(30, 232), rep(31,
250), rep(32, 263), rep(33, 217), rep(34, 222), rep(35,
214), rep(36, 271), rep(37, 247), rep(38, 221), rep(39,
216), rep(40, 208), rep(41, 211), rep(42, 192), rep(43,
209), rep(44, 184), rep(45, 151), rep(46, 177), rep(47,
154), rep(48, 155), rep(49, 99))
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.