* Attempt to match table 6.13 in the final report on the NFHS-5

* mbi: months as months before interview. mbi=col-v018
* cmc: months in century month codes.     cmc=v017+80-col

use "...IAIR7EFL.DTA" , clear

keep v001 v002 v003 v005 v008 v013 v017 v018 v231 vcal_1
* Keep variables needed for table 6.13

gen monthsago=v008-v231 if v231<9997

gen ever=0
replace ever=1 if monthsago<.

gen past5years=0
replace past5years=1 if monthsago<60

* columns 1, 2, and 3 of table 6.13
tab v013 ever [iweight=v005/1000000], row
tab v013 past5years [iweight=v005/1000000], row

gen B=0
gen T=0
quietly forvalues lcol=1/80 {
replace B=B+1 if substr(vcal_1,`lcol',1)=="B" & (`lcol'-v018)<60
replace T=T+1 if substr(vcal_1,`lcol',1)=="T" & (`lcol'-v018)<60
}

tab B T

collapse (sum) B T [iweight=v005/1000000], by(v013)
gen BT=B+T
gen col4=100*T/BT

* columns 4 and 5 of table 6.13; not a match
list, table clean