Upload New File

R_Scripts/data_preperation.R

+
+
+
+  
+####Load data
+database <- read.csv("./Data/ECHOES_data_wide.csv",header=TRUE, sep=",", encoding = "UTF-8") 
+# Profit              #
+########################
+database$profit1<-ln((1+database$rate1/100)*database$invest)
+database$profit2<-ln((1+database$rate2/100)*database$invest)
+database$profit3<-ln((1+database$rate3/100)*database$invest)
+
+
+########################
+#      PMI             #
+########################
+database$Q53_1.z<-z_st(database$Q53_1)
+database$Q54_1.z<-z_st(database$Q54_1)
+database$Q61_1.z<-z_st(database$Q61_1)
+database$Q62.z  <-z_st(database$Q62)
+database$Q31_1.z<-z_st(database$Q31_1)
+database$Q49_1.z<-z_st(database$Q49_1)
+database$Q33_1.z<-z_st(database$Q33_1)
+database$Q34.z<-z_st(database$Q34)
+database$PMI<-(database$Q53_1.z+database$Q54_1.z+database$Q61_1.z+database$Q62.z+database$Q31_1.z+database$Q49_1.z+database$Q33_1.z+database$Q34.z)/8
+
+########################
+#      CMI            #
+########################
+database$Q36_1.z<-z_st(database$Q36_1)
+database$Q37_1.z<-z_st(database$Q37_1)
+database$Q38_1.z<-z_st(database$Q38_1)
+database$Q39_1.z<-z_st(database$Q39_1)
+database$Q48_1.z<-z_st(database$Q48_1)
+database$CMI<-((database$Q36_1.z+database$Q37_1.z+database$Q38_1.z+database$Q39_1.z)/4+ database$Q48_1.z)/2
+
+database<-database %>%
+  select(c("id","profit1","profit2","profit3","hold1", "hold2", "hold3",
+           "loc1", "loc2", "loc3", "admin_11", "admin_12", "admin_13", "admin_21", "admin_22", "admin_23",
+           "choosen", "PMI", "CMI",  "country_sample","gScenarios", "Q35_1",  )) %>% 
+  drop_na()
+
+database<-fastDummies::dummy_cols(database, select_columns = "country_sample")
+database<-fastDummies::dummy_cols(database, select_columns = "gScenarios")
+database<-fastDummies::dummy_cols(database, select_columns = "Q35_1")
+database<-fastDummies::dummy_cols(database, select_columns = "choosen")
+
+countrys<-list("Austria","Belgium", "Bulgaria", "Croatia","Cyprus","Czech Republic","Denmark","Estonia","Finland","France","Germany","Greece","Hungary","Ireland","Italy","Latvia","Lithuania","Luxembourg","Malta","Norway","Poland","Portugal","Romania","Slovakia","Slovenia","Spain","Sweden","Switzerland","The Netherlands","Turkey","United Kingdom")
+
+