cap program drop csmoker_n_intervene0
program define csmoker_n_intervene0
	syntax [varlist] [if] [in], is_startyr(integer)
	
* CSmoker_n Initial Intervention
* Keeps only persons who smoke now and are in a household with with 1 or two smokers (?)
* Sets fsmokev, smokev, fsmoken and smoken to 0
	
         	bys hhid: egen inc = total(smokev == 1 & smoken == 1)
        	keep if inc == 1 | inc == 2
        	replace weight = 0 if !(smokev == 1 & smoken == 1)
        	replace fsmokev = 0
        	replace smokev = 0
        	replace fsmoken = 0
        	replace lsmoken = 0
        	replace smoken = 0
end