46^2-4*360
26*26
20/6
16-92/3
q()
q()
log(1/30)
log(1/2)
log(1/2)/log(1/30)
q()
17.5_17.5/3
17.5+17.5/3
35+17.5*2/3
q()
###############################################################################%
# This code is to setup the path, packages and aesthetics
###############################################################################%
rm(list = ls())
### ======= Load data ======= ###
rm(list = ls())
### ======= Change your path here ======= ###
setwd('~/Dropbox/Taylor Rule/Replication/Empirical/')
### ======= Packages ======= ###
library(tidyverse)
library(ggrepel)
library(knitr)
### ======= Aesthetics ======= ###
my_theme <- theme_minimal() +
theme(axis.title.x = element_blank(),
legend.title = element_blank(),
legend.position = "bottom",
text = element_text(size = 9),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_rect(fill = "white", colour = "grey50", linewidth =1),
legend.text = element_text(size = 8),
legend.margin = margin(t = -6, b = 0, l = 0, r = 0),
)
theme_set(my_theme)
0_setup.R
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/0_setup.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/0_setup.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/1_desc_figures.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/2_taylor_rule_figures.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/3_analysis_G7.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/3_analysis_G7.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/4_early_late_risers.R")
source("C:/Dropbox/Taylor Rule/Replication/Empirical/Code/4_early_late_risers.R")
