From cc59ace483e04a17264c99f5a9d1b4b9d206bede Mon Sep 17 00:00:00 2001
From: Fabian Marder <fabian.marder@idiv.de>
Date: Fri, 24 Mar 2023 15:51:20 +0000
Subject: [PATCH] Upload New File
---
R_Scripts/data_preperation.R | 50 ++++++++++++++++++++++++++++++++++++
1 file changed, 50 insertions(+)
create mode 100644 R_Scripts/data_preperation.R
diff --git a/R_Scripts/data_preperation.R b/R_Scripts/data_preperation.R
new file mode 100644
index 0000000..0bfbddc
--- /dev/null
+++ b/R_Scripts/data_preperation.R
@@ -0,0 +1,50 @@
+
+
+
+
+####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")
+
+
--
GitLab