-
Notifications
You must be signed in to change notification settings - Fork 3
/
Run all.R
59 lines (42 loc) · 1.26 KB
/
Run all.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
52
53
54
55
56
57
58
59
#RUN THE WHOLE CODE
#Note: download all the files and then run this
###########################################
#1)Run each single experiment
#Baseline
r_code_001<-paste0("Scenario 0.R")
source(r_code_001)
#Increase in government spending
r_code_001<-paste0("Scenario 4.R")
source(r_code_001)
#Spending and monetisation
r_code_001<-paste0("Scenario 5.R")
source(r_code_001)
#Interest rate cut
r_code_001<-paste0("Scenario 6.R")
source(r_code_001)
#Lower reserve requirement
r_code_001<-paste0("Scenario 7.R")
source(r_code_001)
#Quantitative easing
r_code_001<-paste0("Scenario 8.R")
source(r_code_001)
#Tax cut
r_code_001<-paste0("Scenario 9.R")
source(r_code_001)
#Job guarantee (endogenous employees)
r_code_001<-paste0("Scenario 10.R")
source(r_code_001)
#Job guarantee (endogenous wage rate and no impact on employment and wages)
r_code_001<-paste0("Scenario 11.R")
source(r_code_001)
#Job guarantee (devaluation)
r_code_001<-paste0("Scenario 12.R")
source(r_code_001)
###########################################
#2) Diagnostic
r_code_001<-paste0("Validation.R")
source(r_code_001)
###########################################
#3) Run the model
r_code_001<-paste0("STRECO model 2021.R")
source(r_code_001)