setwd for external issueanalysis

.Rhistory

@@ -1,10 +1,3 @@
-# Check if tag is an acronym. If so, ignore.case will be deactivated in smartPatternMatch
-curacro <- checkAcronym(string = curtag)
-# Check if tag is some kind of specific hashtag. If so, do not handle as acronym, but don't expand it either
-if(str_detect(curtag, "^#")) {
-curacro <- FALSE
-curhash <- TRUE
-curtag <- str_replace(curtag, "#", "")
 curchars <- curchars - 1
 } else {
 curhash <- FALSE
@@ -510,3 +503,10 @@ VARselect(issues[,2:32], lag.max=8, type="none")
 VARselect(issues[,2:32], lag.max=8, type="both")
 VARselect(issues[,2:32], lag.max=30, type="both")
 VARselect(issues[,2:32], lag.max=15, type="both")
+for(i in 1:20) { cat(i,"\n") Sys.sleep(10)}
+for(i in 1:20) { cat(i,"\n")Sys.sleep(10)}
+for(i in 1:20) { cat(i,"\n")Sys.sleep(10)}
+for(i in 1:20) { cat(i,"\n")
+Sys.sleep(10)}
+list.dirs()
+list.files()

issuecomp-2-analysis-EXT.R

@@ -5,7 +5,7 @@ require(foreach)
 require(doParallel)
 
 source("issuecomp-functions.R")
-setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+setwd("E:/max.mehl")
 
 
 load(file = "tweets_untagged.RData")
@@ -99,8 +99,8 @@ foreach(d = 1:nrow(issues), .packages = c("stringr"), .combine=rbind) %dopar% {
         }
         
         # Match current tweet with tag. 
-          # Allow 1 Levenshtein distance if tag is >= 5 letters and no hashtag or acronym
+        # Allow 1 Levenshtein distance if tag is >= 5 letters and no hashtag or acronym
-          # Make is case-sensitiv if tag is an acronym
+        # Make is case-sensitiv if tag is an acronym
         
         tags_found <- NULL
         # Match the tweet with each variation of tagexpand