R/data_bang.R

In dhsage: Reproductive Age Female Data of Various Demographic Health Surveys

#' @export

bang_2014 <- c(rep(15, 190), rep(16, 291), rep(17, 431), rep(18, 548),
    rep(19, 563), rep(20, 620), rep(21, 584), rep(22, 662), rep(23,
        653), rep(24, 642), rep(25, 679), rep(26, 697), rep(27,
        645), rep(28, 662), rep(29, 660), rep(30, 660), rep(31,
        589), rep(32, 634), rep(33, 537), rep(34, 592), rep(35,
        527), rep(36, 474), rep(37, 470), rep(38, 430), rep(39,
        439), rep(40, 444), rep(41, 425), rep(42, 407), rep(43,
        479), rep(44, 415), rep(45, 409), rep(46, 380), rep(47,
        323), rep(48, 355), rep(49, 347))
		
		
#' @export

bang_2011 <- c(rep(15, 159), rep(16, 265), rep(17, 355), rep(18, 550),
    rep(19, 582), rep(20, 692), rep(21, 598), rep(22, 749), rep(23,
        725), rep(24, 692), rep(25, 734), rep(26, 724), rep(27,
        678), rep(28, 649), rep(29, 602), rep(30, 611), rep(31,
        588), rep(32, 525), rep(33, 497), rep(34, 469), rep(35,
        588), rep(36, 445), rep(37, 427), rep(38, 413), rep(39,
        427), rep(40, 631), rep(41, 427), rep(42, 412), rep(43,
        359), rep(44, 328), rep(45, 440), rep(46, 342), rep(47,
        348), rep(48, 392), rep(49, 326))
		
		
#' @export	
bang_2007 <- c(rep(15, 138), rep(16, 185), rep(17, 260), rep(18, 387),
    rep(19, 378), rep(20, 431), rep(21, 441), rep(22, 461), rep(23,
        428), rep(24, 413), rep(25, 415), rep(26, 404), rep(27,
        383), rep(28, 379), rep(29, 354), rep(30, 357), rep(31,
        341), rep(32, 328), rep(33, 338), rep(34, 297), rep(35,
        342), rep(36, 402), rep(37, 302), rep(38, 280), rep(39,
        270), rep(40, 241), rep(41, 242), rep(42, 263), rep(43,
        247), rep(44, 225), rep(45, 168), rep(46, 204), rep(47,
        180), rep(48, 232), rep(49, 280))
		
		
#' @export	

bang_2004 <- c(rep(15, 202), rep(16, 273), rep(17, 351), rep(18, 345),
    rep(19, 392), rep(20, 468), rep(21, 427), rep(22, 480), rep(23,
        393), rep(24, 434), rep(25, 433), rep(26, 424), rep(27,
        387), rep(28, 392), rep(29, 376), rep(30, 347), rep(31,
        338), rep(32, 362), rep(33, 390), rep(34, 346), rep(35,
        328), rep(36, 290), rep(37, 272), rep(38, 307), rep(39,
        283), rep(40, 299), rep(41, 235), rep(42, 221), rep(43,
        227), rep(44, 203), rep(45, 238), rep(46, 242), rep(47,
        195), rep(48, 207), rep(49, 193))	
		
#' @export	

bang_2001 <- c(rep(15, 1932), rep(16, 2646), rep(17, 3134), rep(18, 3985),
    rep(19, 3357), rep(20, 4562), rep(21, 3492), rep(22, 4004),
    rep(23, 3735), rep(24, 3599), rep(25, 4394), rep(26, 3426),
    rep(27, 3238), rep(28, 3512), rep(29, 3290), rep(30, 4818),
    rep(31, 3185), rep(32, 3299), rep(33, 2852), rep(34, 2554),
    rep(35, 3842), rep(36, 2750), rep(37, 2507), rep(38, 2765),
    rep(39, 1950), rep(40, 3113), rep(41, 1771), rep(42, 2331),
    rep(43, 2141), rep(44, 1774), rep(45, 2260), rep(46, 1617),
    rep(47, 1512), rep(48, 1532), rep(49, 1319))
	
#' @export	
bang_1999 <- c(rep(15, 189), rep(16, 272), rep(17, 300), rep(18, 345),
    rep(19, 412), rep(20, 378), rep(21, 378), rep(22, 398), rep(23,
        372), rep(24, 350), rep(25, 403), rep(26, 379), rep(27,
        357), rep(28, 459), rep(29, 414), rep(30, 395), rep(31,
        345), rep(32, 338), rep(33, 297), rep(34, 300), rep(35,
        301), rep(36, 294), rep(37, 228), rep(38, 275), rep(39,
        239), rep(40, 244), rep(41, 245), rep(42, 231), rep(43,
        200), rep(44, 223), rep(45, 197), rep(46, 178), rep(47,
        156), rep(48, 166), rep(49, 148))
		
#' @export		
bang_1996 <- c(rep(15, 162), rep(16, 267), rep(17, 245), rep(18, 312),
    rep(19, 286), rep(20, 343), rep(21, 354), rep(22, 336), rep(23,
        336), rep(24, 347), rep(25, 441), rep(26, 431), rep(27,
        379), rep(28, 362), rep(29, 308), rep(30, 330), rep(31,
        296), rep(32, 316), rep(33, 244), rep(34, 226), rep(35,
        267), rep(36, 223), rep(37, 217), rep(38, 241), rep(39,
        196), rep(40, 223), rep(41, 174), rep(42, 165), rep(43,
        150), rep(44, 155), rep(45, 140), rep(46, 153), rep(47,
        136), rep(48, 145), rep(49, 75))
		
#' @export		
bang_1993 <- c(rep(15, 179), rep(16, 227), rep(17, 250), rep(18, 327),
    rep(19, 285), rep(20, 350), rep(21, 306), rep(22, 457), rep(23,
        488), rep(24, 437), rep(25, 482), rep(26, 392), rep(27,
        385), rep(28, 411), rep(29, 323), rep(30, 365), rep(31,
        265), rep(32, 331), rep(33, 257), rep(34, 265), rep(35,
        296), rep(36, 256), rep(37, 214), rep(38, 226), rep(39,
        205), rep(40, 232), rep(41, 164), rep(42, 174), rep(43,
        150), rep(44, 150), rep(45, 163), rep(46, 149), rep(47,
        111), rep(48, 140), rep(49, 81))