diff --git a/.RData b/.RData
index e8f14ea..a503e2b 100644
Binary files a/.RData and b/.RData differ
diff --git a/.Rhistory b/.Rhistory
index 9ac776b..d6f3a60 100644
--- a/.Rhistory
+++ b/.Rhistory
@@ -1,25 +1,3 @@
-rm(tweets_temp)
-tweets_temp <- fromJSON(correctJSON(current))
-## START ERROR HANDLING ##
-# Empty API output
-status <- errorEmptyAPI(tweets_temp)
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-# Contains "error" column
-status <- errorErrorColumn(tweets_temp)
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-# Check if error code exists
-code <- errorCheckCode(tweets_temp) # 0 if no error
-if(code == 34) {  # page does not exist
-status <- errorCode34()
-if(status == 1) { Sys.sleep(3);error <- error + 1;next}
-if(status == 2) {break}
-}
-if(code == 88) {  # rate limit exceeded
-wait <- errorCode88()
-Sys.sleep(wait)
-next
 }
 ## END ERROR HANDLING ##
 # Delete unnecessary columns and add username and real name to dataframe
@@ -510,3 +488,25 @@ api_params2
 rm(tweets_complete)
 rm(api_params2)
 source("issuecomp-functions.R")
+source("issuecomp-functions.R")
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+require(lubridate)
+require(XML)
+require(ggplot2)
+require(reshape2)
+date_start <- as.Date("2014-01-01")
+date_end <- as.Date("2014-12-01")
+drange <- as.integer(date_end - date_start)
+drange <- date_start + days(0:drange)
+issues <- data.frame(date = drange)
+View(issues)
+date_start <- as.Date("2014-01-01")
+date_end <- as.Date("2014-12-31")
+drange <- as.integer(date_end - date_start)
+drange <- date_start + days(0:drange)
+issues <- data.frame(date = drange)
+View(issues)
+issuelist <- xmlToList("issues.xml")
+issueheads <- names(issuelist)
+issues[issueheads] <- 0
+View(issues)
diff --git a/issuecomp-analysis.R b/issuecomp-analysis.R
index d02784b..0bf30e6 100644
--- a/issuecomp-analysis.R
+++ b/issuecomp-analysis.R
@@ -5,7 +5,7 @@ require(reshape2)
 
 # Create date range
 date_start <- as.Date("2014-01-01")
-date_end <- as.Date("2014-12-01")
+date_end <- as.Date("2014-12-31")
 drange <- as.integer(date_end - date_start)
 drange <- date_start + days(0:drange)
 issues <- data.frame(date = drange)
diff --git a/issues.txt b/issues.txt
new file mode 100644
index 0000000..5f3161b
--- /dev/null
+++ b/issues.txt
@@ -0,0 +1,115 @@
+1 Wirtschaft
+- Wirtschaft
+- Wirtschaftswachstum
+- Wachstum
+- Investitionen
+
+- Inflation
+- Verbraucherpreisindex
+- Lebensmittelpreise
+- Lebenshaltungskosten
+- Leitzins
+
+- (Arbeitslosigkeit)
+
+- Zentralbank
+- EZB
+
+- Staatsverschuldung
+- Schuldenquote
+- Haushaltskürzungen
+- Staatsdefizit
+- Finanzpolitik
+- Haushaltspolitik
+
+- Steuern
+- Steuer
+- Steuererhöhung
+- Luxussteuer
+- Soli
+- Solidaritätszuschlag
+- Erbschaftssteuer
+- Erbsteuer
+- KFZ-Steuer
+- Alkoholsteuer
+
+- (Steueroasen)
+- (Steueroase)
+
+- Industrie
+- Subventionen
+- Schwerindustrie
+
+110
+- Lohnkontrolle
+- Preisstopp
+
+
+2 Bürgerrechte
+
+200
+- Gleichberechtigung
+- Diskriminierung
+- Homosexuell
+- Homosexualität
+- Homoehe
+- Homoehen
+- Bürgerrechte
+- Bürgerrecht
+- Menschenrecht
+- Menschenrechte
+- (Folter)
+- (Folterbericht)
+- Grundwerte
+- Nationalismus
+- Politikverdrossenheit
+
+201
+- Minderheiten
+- Rassismus
+- rassistisch
+- Rechtsextremismus
+- Nazi
+- Nazis
+
+206
+- Wahlrecht
+- NPD-Verbot
+
+3 Gesundheit
+
+4 Landwirtschaft
+
+5 Arbeitswesen
+
+6 Bildung
+
+7 Umwelt
+
+8 Energie
+
+9 Verkehr
+
+10 Recht und Kriminalität
+
+11 Sozialpolitik
+
+12 Wohnungswesen
+
+13 Bankwesen
+
+14 Verteidigung
+
+15 Wissenschaft, Technologie, Kommunikation
+
+16 Außenhandel
+
+17 Internationale Beziehungen
+
+18 Öffentliche Verwaltung
+
+19 Öffentliches Land
+
+20 Verwaltung Land und Stadt
+
+21 Wiedervereinigung