#data wrangling
library(dplyr)
library(Amelia)
#impute missing values
RRcrisis_panel <- read.csv("schularick_taylor_RRcrises_panel.csv")
head(RRcrisis_panel)
RRcrisis_panel_loans1 <- select(RRcrisis_panel, year, iso, loans1)
a.RRcrisis_panel <- amelia(RRcrisis_panel_loans1,
m = 3,
ts = "year",
cs = "iso",
polytime = 1)
#look at individual impututations
a.RRcrisis_panel$imputations[[1]]
head(a.RRcrisis_panel$imputations[[1]])
#save the five different imputations
write.amelia(obj=a.RRcrisis_panel, file.stem = "amelia_11_16_2015")
Before Imputing
After Imputing
Before Imputing
After Imputing:
Before Imputing
after imputing