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

* Obs R Initial Intervention
*	If the person is obese, then mark them to be treated

	marksample touse, zeroweight strok novarlist 
	
		replace treat_now = (obese == 1) & died == 0  if `touse'
		replace  treat_effective = 0  if `touse'
		
end