From e3ff17df482d6e86ab6b6e46ca3c1b976375f490 Mon Sep 17 00:00:00 2001
From: mxmehl <mail@mehl.mx>
Date: Wed, 4 Mar 2015 11:56:20 +0100
Subject: [PATCH] setwd for external issueanalysis

---
 .Rhistory                  | 14 +++++++-------
 issuecomp-2-analysis-EXT.R |  6 +++---
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/.Rhistory b/.Rhistory
index 84e5b12..891d6a6 100644
--- a/.Rhistory
+++ b/.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()
diff --git a/issuecomp-2-analysis-EXT.R b/issuecomp-2-analysis-EXT.R
index ba590c1..7fa37af 100644
--- a/issuecomp-2-analysis-EXT.R
+++ b/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
-          # Make is case-sensitiv if tag is an acronym
+        # Allow 1 Levenshtein distance if tag is >= 5 letters and no hashtag or acronym
+        # Make is case-sensitiv if tag is an acronym
         
         tags_found <- NULL
         # Match the tweet with each variation of tagexpand