-
Notifications
You must be signed in to change notification settings - Fork 2
/
Load_init_data.R
51 lines (35 loc) · 1.32 KB
/
Load_init_data.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
#########################
### IND
#########################
# IND_FD_ICP_AllHH
load(file="./Saved tables/IND_FD_harmonized.Rda")
#IND_FD_ICP_io.yr
load(file="./Saved tables/IND_FD_ICP_io.yr.Rda")
load(file="./Saved tables/IND_FD_ICP_HH_adj.Rda")
# # IND2_HH
# load(file="./Saved tables/IND2_HH.Rda")
# # IND2_FD_ALL
# load(file="./Saved tables/IND2_AllHHConsump.Rda")
IND_fd_exio_pp <- get_purch_price(IND_fd_exio, "IN")
scaler_IND <- sum(IND_FD_ICP_io.yr[,1]) / sum(IND_fd_exio_pp)
init_FD_IND <- IND_FD_ICP_io.yr[,1] / scaler_IND
#########################
### BRA
#########################
# BRA_FD_ICP_AllHH
load(file="./Saved tables/BRA_FD_harmonized.Rda")
load(file="./Saved tables/BRA_FD_ICP_io.yr.Rda")
load(file="./Saved tables/BRA_FD_ICP_HH_adj_BR.Rda")
# All in M.USD 2007
BRA_fd_exio_pp_EX <- get_purch_price(BRA_fd_exio, "BR")
scaler_BRA <- sum(BRA_FD_ICP_io.yr[,1]) / sum(BRA_fd_exio_pp_EX)
init_FD_BRA <- BRA_FD_ICP_io.yr[,1] / scaler_BRA
#########################
### ZAF1 - ZAF_HH
#########################
load(file="./Saved tables/ZAF_FD_harmonized.Rda")
load(file="./Saved tables/ZAF_FD_ICP_io.yr.Rda")
load(file="./Saved tables/ZAF_FD_ICP_HH_adj.Rda")
ZAF_fd_exio_pp <- get_purch_price(ZAF_fd_exio, "ZA")
scaler_ZAF <- sum(ZAF_FD_ICP_io.yr[,1]) / sum(ZAF_fd_exio_pp)
init_FD_ZAF <- ZAF_FD_ICP_io.yr[,1] / scaler_ZAF