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