Displaying 1 result from an estimated 1 matches for "nonstopword".
Did you mean:
nonstopwords
2009 Nov 12
1
How can this code be improved?
I am running the following code on a MacBook Pro 17" Unibody early
2009 with 8GB RAM, OS X 10.5.8, R 2.10.0 Patch from Nov. 2, 2009, in
64-bit mode.
freq.stopwords <- numeric(0)
freq.nonstopwords <- numeric(0)
token.tables <- list(0)
i.ss <- c(0)
cat("Beginning at ", date(), ".\n")
for (i.d in 1:length(tokens)) {
tt <- list(0)
for (i.s in 1:length(tokens[[i.d]])) {
t <- tolower(tokens[[i.d]][[i.s]])
t <- sub("^[[:punct:]]*", ""...