use ellen_data

* Generating Fig. 1, 2, 3 in the paper

* STOCKS
* ------

label var aastoc94 "1994 level"
label var aastoc89 "1989 level"
su aastoc94 aastoc89 if ye==94
graph aastoc94 aastoc89 if ye==94, t1title("Portion of financial wealth in stock
s") t2("1994 level against 1989 level") title("Fig.1a The fixed cost 'stock angl
e', 1989 and 1994 levels") xlab ylab psize(50)  saving(figu1a, replace)

* Delete from here down if you just want the first picture
* If you use Latex, add in this line right here and you'll get an encapsulated p
ostscript file:

* gphprint, nologo saving(figu1a.eps, replace);



label var aastoc89 "1989 level"
label var aastoc84 "1984 level"
graph aastoc89 aastoc84 if ye==89, t1title("Portion of financial wealth in stocks") t2("1989 level against 
1984 level") title("Fig.1b The fixed cost 'stock angle', 1984 and 1989 levels") xlab ylab psize(50)  saving
(figu1b, replace)


gen dalpha1=aastoc94-aastoc89
gen dalpha2=aastoc89-aastoc84

label var dalpha1 "1989-94 change"
label var dalpha2 "1984-89 change"
graph dalpha1 dalpha2 if ye==94, t1title("Portion of financial wealth in stocks") t2("1989-94 change agains
t 1984-89 change") title("Fig.1c The fixed cost 'stock triplet'") xlab ylab psize(50)  saving(figu1c, repla
ce)

graph using figu1a figu1c figu1b, marg(10) saving(figu1, replace)


* BONDS
* -----

label var aaothe94 "1994 level"
label var aaothe89 "1989 level"
graph aaothe94 aaothe89 if ye==94, t1title("Portion of financial wealth in bonds") t2("1994 level against 1
989 level") title("Fig.2a The fixed cost 'bond angle', 1989 and 1994 levels") xlab ylab psize(50)  saving(f
igu2a, replace)

label var aaothe89 "1989 level"
label var aaothe84 "1984 level"
graph aaothe89 aaothe84 if ye==89, t1title("Portion of financial wealth in bonds") t2("1989 level against 1
984 level") title("Fig.2b The fixed cost 'bond angle', 1984 and 1989 levels") xlab ylab psize(50)  saving(f
igu2b, replace)

drop dalpha*
gen dalpha1=aaothe94-aaothe89
gen dalpha2=aaothe89-aaothe84

label var dalpha1 "1989-94 change"
label var dalpha2 "1984-89 change"
graph dalpha1 dalpha2, t1title("Portion of financial wealth in bonds") t2("1989-94 change against 1984-89 c
hange") title("Fig.2c The fixed cost 'bond triplet'") xlab ylab psize(50)  saving(figu2c, replace)

graph using figu2a figu2c figu2b, marg(10) saving(figu2, replace)
 

* CASH
* ----

label var aachec94 "1994 level"
label var aachec89 "1989 level"
graph aachec94 aachec89 if ye==94, t1title("Portion of financial wealth in cash") t2("1994 level against 19
89 level") title("Fig.3a The fixed cost 'cash angle', 1989 and 1994 levels") xlab ylab psize(50) saving(fig
u3a, replace)

label var aachec89 "1989 level"
label var aachec84 "1984 level"
graph aachec94 aachec89 if ye==89, t1title("Portion of financial wealth in cash") t2("1989 level against 19
84 level") title("Fig.3b The fixed cost 'cash angle', 1984 and 1989 levels") xlab ylab psize(50)  saving(fi
gu3b, replace)

drop dalpha*
gen dalpha1=aachec94-aachec89
gen dalpha2=aachec89-aachec84

label var dalpha1 "1989-94 change"
label var dalpha2 "1984-89 change"
graph dalpha1 dalpha2, t1title("Portion of financial wealth in cash") t2("1989-94 change against 1984-89 ch
ange") title("Fig.3c The fixed cost 'cash triplet'") xlab ylab psize(50)  saving(figu3c, replace)

graph using figu3a figu3c figu3b, marg(10) saving(figu3, replace)