R/data_Turkey.R

#' @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))

Try the dhsage package in your browser

Any scripts or data that you put into this service are public.

dhsage documentation built on Oct. 5, 2023, 5:09 p.m.