setwd for external issueanalysis

master
mxmehl 8 years ago
parent 9bbf1b4f56
commit e3ff17df48

@ -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()

@ -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

Loading…
Cancel
Save