Nothing
#' @export
turkey_2013 <- c(rep(15, 290), rep(16, 332), rep(17, 316), rep(18, 303),
rep(19, 285), rep(20, 274), rep(21, 264), rep(22, 263), rep(23,
280), rep(24, 292), rep(25, 299), rep(26, 280), rep(27,
309), rep(28, 298), rep(29, 276), rep(30, 302), rep(31,
334), rep(32, 308), rep(33, 319), rep(34, 289), rep(35,
331), rep(36, 309), rep(37, 267), rep(38, 282), rep(39,
288), rep(40, 281), rep(41, 251), rep(42, 273), rep(43,
248), rep(44, 223), rep(45, 223), rep(46, 199), rep(47,
230), rep(48, 239), rep(49, 189))
#' @export
turkey_2008 <- c(rep(15, 5), rep(16, 16), rep(17, 29), rep(18, 73), rep(19,
85), rep(20, 133), rep(21, 142), rep(22, 186), rep(23, 205),
rep(24, 232), rep(25, 259), rep(26, 245), rep(27, 297), rep(28,
314), rep(29, 267), rep(30, 265), rep(31, 271), rep(32,
252), rep(33, 281), rep(34, 303), rep(35, 297), rep(36,
251), rep(37, 249), rep(38, 284), rep(39, 256), rep(40,
284), rep(41, 160), rep(42, 234), rep(43, 234), rep(44,
258), rep(45, 251), rep(46, 217), rep(47, 165), rep(48,
244), rep(49, 161))
#' @export
turkey_2003 <- c(rep(15, 3), rep(16, 14), rep(17, 41), rep(18, 75), rep(19,
105), rep(20, 156), rep(21, 168), rep(22, 254), rep(23, 241),
rep(24, 261), rep(25, 294), rep(26, 332), rep(27, 283), rep(28,
299), rep(29, 308), rep(30, 363), rep(31, 289), rep(32,
295), rep(33, 293), rep(34, 266), rep(35, 296), rep(36,
219), rep(37, 276), rep(38, 305), rep(39, 314), rep(40,
280), rep(41, 244), rep(42, 231), rep(43, 291), rep(44,
251), rep(45, 258), rep(46, 196), rep(47, 193), rep(48,
244), rep(49, 155))
#' @export
turkey_1998 <- c(rep(15, 322), rep(16, 375), rep(17, 365), rep(18, 386),
rep(19, 315), rep(20, 348), rep(21, 295), rep(22, 287), rep(23,
302), rep(24, 307), rep(25, 313), rep(26, 302), rep(27,
263), rep(28, 265), rep(29, 230), rep(30, 279), rep(31,
178), rep(32, 229), rep(33, 270), rep(34, 239), rep(35,
231), rep(36, 241), rep(37, 236), rep(38, 224), rep(39,
172), rep(40, 221), rep(41, 145), rep(42, 170), rep(43,
195), rep(44, 159), rep(45, 190), rep(46, 139), rep(47,
116), rep(48, 168), rep(49, 99))
#' @export
turkey_1993 <- c(rep(15, 13), rep(16, 23), rep(17, 54), rep(18, 100), rep(19,
140), rep(20, 155), rep(21, 204), rep(22, 203), rep(23, 219),
rep(24, 250), rep(25, 242), rep(26, 218), rep(27, 253), rep(28,
283), rep(29, 234), rep(30, 292), rep(31, 234), rep(32,
238), rep(33, 275), rep(34, 241), rep(35, 240), rep(36,
174), rep(37, 227), rep(38, 254), rep(39, 190), rep(40,
258), rep(41, 138), rep(42, 152), rep(43, 200), rep(44,
140), rep(45, 186), rep(46, 143), rep(47, 129), rep(48,
142), rep(49, 75))
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.