Browse Source

setwd for external issueanalysis

mxmehl 5 years ago
parent
commit
e3ff17df48
2 changed files with 10 additions and 10 deletions
  1. 7
    7
      .Rhistory
  2. 3
    3
      issuecomp-2-analysis-EXT.R

+ 7
- 7
.Rhistory View File

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

+ 3
- 3
issuecomp-2-analysis-EXT.R View File

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

Loading…
Cancel
Save