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

* FSmoker Initial Intervention
*	Keeps only persons that are in a household with 1 or 2 members that quit smoking. Sets wieght to 0 for people who have not quit smoking.


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

end