cap program drop csmoker_intervene0
program define csmoker_intervene0
	syntax [varlist] [if] [in], is_startyr(integer)

* CSmoker Initial Intervention
* Keeps only persons who smoke now and are in a household with with 1 or two smokers (?)

         	bys hhid: egen inc = total(smokev == 1 & smoken == 1)
        	keep if inc == 1 | inc == 2
        	replace weight = 0 if !(smokev == 1 & smoken == 1)

end