*** RENAME LIST FOR EARNINGS AND WEALTH EQUATION

global allvars_iearnx_r 
dis "$allvars_iearnx"
foreach x in $allvars_iearnx { 
	
	if "`x'" == "black" {
		ren `x' bl
		global allvars_iearnx_r $allvars_iearnx_r bl
	}
	if "`x'" == "lhearte" {
		ren `x' lh
		global allvars_iearnx_r $allvars_iearnx_r lh
	}
	if "`x'" == "lstroke" {
		ren `x' ls
		global allvars_iearnx_r $allvars_iearnx_r ls
	}
	if "`x'" == "lcancre" {
		ren `x' lc
		global allvars_iearnx_r $allvars_iearnx_r lc
	}
	if "`x'" == "lhibpe" {
		ren `x' lhi
		global allvars_iearnx_r $allvars_iearnx_r lhi
	}
	if "`x'" == "ldiabe" {
		ren `x' ld
		global allvars_iearnx_r $allvars_iearnx_r ld
	}
	if "`x'" == "llunge" {
		ren `x' ll
		global allvars_iearnx_r $allvars_iearnx_r ll
	}
	if "`x'" == "lanyhi" {
		ren `x' la
		global allvars_iearnx_r $allvars_iearnx_r la
	}
	if "`x'" == "ldiclaim" {
		ren `x' ldi
		global allvars_iearnx_r $allvars_iearnx_r ldi
	}
	if "`x'" == "lssiclaim" {
		ren `x' lss
		global allvars_iearnx_r $allvars_iearnx_r lss
	}
	if "`x'" == "lssclaim" {
		ren `x' lssc
		global allvars_iearnx_r $allvars_iearnx_r lssc
	}
	if "`x'" == "ldbclaim" {
		ren `x' ldb
		global allvars_iearnx_r $allvars_iearnx_r ldb
	}
	if "`x'" == "lsmoken" {
		ren `x' lsm
		global allvars_iearnx_r $allvars_iearnx_r lsm
	}
	if "`x'" == "liadl1" {
		ren `x' li
		global allvars_iearnx_r $allvars_iearnx_r li
	}
	if "`x'" == "ladl12" {
		ren `x' lad
		global allvars_iearnx_r $allvars_iearnx_r lad
	}
	if "`x'" == "ladl3" {
		ren `x' ladl
		global allvars_iearnx_r $allvars_iearnx_r ladl
	}
	if "`x'" == "lwork" {
		ren `x' lw
		global allvars_iearnx_r $allvars_iearnx_r lw
	}
	if "`x'" == "llogiearnx" {
		ren `x' llo
		global allvars_iearnx_r $allvars_iearnx_r llo
	}
	if "`x'" == "flogiearnx" {
		ren `x' fe
		global allvars_iearnx_r $allvars_iearnx_r fe
	}
	if "`x'" == "fhearte" {
		ren `x' fh
		global allvars_iearnx_r $allvars_iearnx_r fh
	}
	if "`x'" == "fstroke" {
		ren `x' fs
		global allvars_iearnx_r $allvars_iearnx_r fs
	}
	if "`x'" == "fcancre" {
		ren `x' fc
		global allvars_iearnx_r $allvars_iearnx_r fc
	}
	if "`x'" == "fhibpe" {
		ren `x' fhi
		global allvars_iearnx_r $allvars_iearnx_r fhi
	}
	if "`x'" == "fdiabe" {
		ren `x' fd
		global allvars_iearnx_r $allvars_iearnx_r fd
	}
	if "`x'" == "flunge" {
		ren `x' fl
		global allvars_iearnx_r $allvars_iearnx_r fl
	}
	if "`x'" == "fanyhi" {
		ren `x' fa
		global allvars_iearnx_r $allvars_iearnx_r fa
	}
	if "`x'" == "fsmokev" {
		ren `x' fsm
		global allvars_iearnx_r $allvars_iearnx_r fsm
	}
	if "`x'" == "fsmoken" {
		ren `x' fsmo
		global allvars_iearnx_r $allvars_iearnx_r fsmo
	}
	if "`x'" == "fiadl1" {
		ren `x' fi
		global allvars_iearnx_r $allvars_iearnx_r fi
	}
	if "`x'" == "fadl12" {
		ren `x' fad
		global allvars_iearnx_r $allvars_iearnx_r fad
	}
	if "`x'" == "fadl3" {
		ren `x' fadl
		global allvars_iearnx_r $allvars_iearnx_r fadl
	}
	if "`x'" == "fwork" {
		ren `x' fw
		global allvars_iearnx_r $allvars_iearnx_r fw
	}
	if "`x'" == "fwlth_nonzero" {
		ren `x' fwl
		global allvars_iearnx_r $allvars_iearnx_r fwl
	}
	if "`x'" == "floghatotax" {
		ren `x' flo
		global allvars_iearnx_r $allvars_iearnx_r flo
	}
	if "`x'" == "lloghatotax" {
		ren `x' lha
		global allvars_iearnx_r $allvars_iearnx_r lha
	}
	if "`x'" == "lwlth_nonzero" {
		ren `x' lwo
		global allvars_iearnx_r $allvars_iearnx_r lwo
	}
	if "`x'" == "lage75l" {
		ren `x' lag
		global allvars_iearnx_r $allvars_iearnx_r lag
	}
	if "`x'" == "lwidowed" {
		ren `x' lwi
		global allvars_iearnx_r $allvars_iearnx_r lwi
	}
	if "`x'" == "hispan" {
		ren `x' hi
		global allvars_iearnx_r $allvars_iearnx_r hi
	}
	if "`x'" == "hsless" {
		ren `x' hs
		global allvars_iearnx_r $allvars_iearnx_r hs
	}
	if "`x'" == "college" {
		ren `x' co
		global allvars_iearnx_r $allvars_iearnx_r co
	}
	if "`x'" == "male" {
		ren `x' ma
		global allvars_iearnx_r $allvars_iearnx_r ma
	}
	if "`x'" == "fwidowed" {
		ren `x' fwi
		global allvars_iearnx_r $allvars_iearnx_r fwi
	}
	if "`x'" == "fsingle" {
		ren `x' fsi
		global allvars_iearnx_r $allvars_iearnx_r fsi
	}
	if "`x'" == "flogaime" {
		ren `x' flog
		global allvars_iearnx_r $allvars_iearnx_r flog
	}
	if "`x'" == "flogq" {
		**ren `x' flogq
		global allvars_iearnx_r $allvars_iearnx_r flogq
	}
	if "`x'" == "fshlt" {
		ren `x' fsh
		global allvars_iearnx_r $allvars_iearnx_r fsh
	}
	if "`x'" == "fanydb" {
		ren `x' fan
		global allvars_iearnx_r $allvars_iearnx_r fan
	}
	if "`x'" == "frdb_na_2" {
		ren `x' f2
		global allvars_iearnx_r $allvars_iearnx_r f2
	}
	if "`x'" == "frdb_na_3" {
		ren `x' f3
		global allvars_iearnx_r $allvars_iearnx_r f3
	}
	if "`x'" == "frdb_na_4" {
		ren `x' f4
		global allvars_iearnx_r $allvars_iearnx_r f4
	}	
	if "`x'" == "fanydc" {
		ren `x' fany
		global allvars_iearnx_r $allvars_iearnx_r fany
	}
	if "`x'" == "flogdcwlthx" {
		ren `x' flogd
		global allvars_iearnx_r $allvars_iearnx_r flogd
	}
	if "`x'" == "lage65l" {
		ren `x' l1
		global allvars_iearnx_r $allvars_iearnx_r l1
	}
	if "`x'" == "lage6574" {
		ren `x' l2
		global allvars_iearnx_r $allvars_iearnx_r l2
	}
	if "`x'" == "lage75p" {
		ren `x' l3
		global allvars_iearnx_r $allvars_iearnx_r l3
	}

}

/*
#d;
foreach x in $allvars_hatotax { ;
	
	if "`x'" == "black" {
		ren `x' bl
		global allvars_hatotax_r $allvars_hatotax_r bl
	}

	*** FOR ADAM TO FINISH
}

*** Label variables
	* time varying exogeneous
	global wvars lage75l lage75p lwidowed
	global zvars black hispan hsless college male fwidowed fsingle flogaime flogq fshlt fanydb frdb_na_2 frdb_na_3 frdb_na_4 fanydc flogdcwlthx
	global fvars fhearte fstroke fcancre fhibpe fdiabe flunge fanyhi   fsmokev fsmoken fiadl1 fadl12 fadl3 fwork fwlth_nonzero floghatotax
	global lvars lhearte lstroke lcancre lhibpe ldiabe llunge lanyhi ldiclaim lssclaim ldbclaim lnhmliv    lsmoken liadl1 ladl12 ladl3 lwork llogiearnx 
	
	label var work "Working"
	label var lage75l "Age spline <75"
	label var lage75p "Age spline >75"
	
	label var lwidowed "Widowed"
	label var fwidowed "Initial-Widowed"
	label var fsingle  "Initial-Single"
	label var flogaime "Initial-LogAIME"
	label var flogq    "Initial-Log quarters worked"
	label var fshlt    "Initial-Poor health"
	label var fanydb   "Initial-Any DB pension"
	label var frdb_na_2 "Initial-DB normal elig age 56-69"
	label var frdb_na_3 "Initial-DB normal elig age 60-61"
	label var frdb_na_4 "Initial-DB normal elig age >=62"
	label var fanydc    "Initial-Any DC pension"
	label var  flogdcwlthx "Initial-Log(DC wealth in 1000s)/100"
	
	label var logiearnx "Log(Earnings in 1000s)/100"
	label var flogiearnx "Initial-Log(Earnings in 1000s)/100"
	label var loghatotax "Log(HH wealth in 1000s transformed)/100"
	label var wlth_nonzero "HH wealth not zero"
	label var foverwt "Initial-Overweight"
	label var fobese "Initial-Obese"
	label var fsmokev "Initial-Eversmoked"
	label var fiadl1 "Initial-IADL only"
	label var fadl12 "Initial-ADL 1 or 2"
	label var fadl3 "Initial-ADL 3-5"
	label var fsmoken "Initial-Smoking now"
	
	foreach v in hearte stroke cancre hibpe diabe lunge anyhi work wlth_nonzero loghatotax { 
		local lb: var lab `v' 
		label var f`v' "Initial-`lb'"
	}
	
	label var loverwt "Overweight"
	label var lobese "Obese"
	label var liadl1 "IADL only"
	label var ladl12 "ADL 1 or 2"
	label var ladl3 "ADL 3-5"
	label var lsmoken "Smoking now"
	label var lnhmliv "Living in nursing home"
	
	global subvars   liadl1 ladl12 ladl3 lsmoken 
	foreach v in $lvars { 
		if strpos("$subvars", "`v'") == 0 {
			local subv = substr("`v'",2,.)
			local lb: var lab `subv'
			label var `v' "`lb'"
		}
	}
*/


#d cr