machine learning - randomForest in R object not found error - 


# init libs <- c("tm", "plyr", "class", "rtexttools", "randomforest") lapply(libs, require, character.only = true)  # set options options(stringsasfactors = false)  # set parameters labels <- read.table('labels.txt') path <- paste(getwd(), "/data", sep="")  # clean text cleancorpus <- function(corpus) {   corpus.tmp <- tm_map(corpus, removepunctuation)   corpus.tmp <- tm_map(corpus.tmp, removenumbers)   corpus.tmp <- tm_map(corpus.tmp, stripwhitespace)   corpus.tmp <- tm_map(corpus.tmp, content_transformer(tolower))   corpus.tmp <- tm_map(corpus.tmp, stemdocument, language = "english")   corpus.tmp <- tm_map(corpus.tmp, removewords, stopwords("english"))   return(corpus.tmp) }  # build tdm generatetdm <- function(label, path) {   s.dir <- sprintf("%s/%s", path, label)   s.cor <- corpus(dirsource(directory = s.dir), readercontrol = list(language = "en"))   s.cor.cl <- cleancorpus(s.cor)   s.tdm <- termdocumentmatrix(s.cor.cl)   s.tdm <- removesparseterms(s.tdm, 0.7)   return(list(name = label, tdm = s.tdm)) }  tdm <- lapply(labels, generatetdm, path = path)  # attach name bindlabeltotdm <- function(tdm) {   s.mat <- t(data.matrix(tdm[["tdm"]]))   s.df <- as.data.frame(s.mat, stringsasfactors = false)   s.df <- cbind(s.df, rep(tdm[["name"]], nrow(s.df)), row.names = null)   colnames(s.df)[ncol(s.df)] <- "targetlabel"   return(s.df)  }  labeltdm <- lapply(tdm, bindlabeltotdm)  # stack tdm.stack <- do.call(rbind.fill, labeltdm) tdm.stack[is.na(tdm.stack)] <- 0  # hold-out train.idx <- sample(nrow(tdm.stack), ceiling(nrow(tdm.stack) * 0.7)) test.idx <- (1:nrow(tdm.stack)) [- train.idx]  tdm.lab <- tdm.stack[, "targetlabel"] tdm.stack.nl <- tdm.stack[, !colnames(tdm.stack) %in% "targetlabel"]  train <- tdm.stack[train.idx, ] test <- tdm.stack[test.idx, ]  train$targetlabel <- as.factor(train$targetlabel) label.rf <- randomforest(targetlabel ~ ., data = train, ntree = 5000, mtry = 15, importance = true)

i trying multi class classfication text files using randomforest algorithms. error because of last or second last line. 

error in eval(expr, envir, enclos) : object '∗' not found

tdm.stack contains columns names words found in document , cell values frequency. last column contains class value.

i have tried cant figure out problem. please help.

the error being caused presence of non-ascii characters in corpuses. added line cleancorpus function remove non-ascii characters

corpus.tmp <- tm_map(corpus.tmp, function(x) iconv(x, "latin1", "ascii", sub=""))

this solved problem.


Comments

Post a Comment

Popular posts from this blog

html - Outlook 2010 Anchor (url/address/link) -

i'm trying link specific pdf page msoutlook'10 or msword'10, #page=... anchor particularly useful , works fine elsewhere. unfortunately when click [ctr-k] in outlook or winword, links re-formatted assuming unc path. pdf file located on shared drive. using "file:" prefix links open pdf in adobe reader (outside of browser), , "http:" open inside browser. issue seem need open in browser "file:" prefix in order anchor work. know anchors work inside browser. outlook uses windows/explorer default program (based on file extension) seems open in adobe reader neglecting anchor. is aware of solution, link specific page or bookmark of shared-pdf ms outlook and/or winword link? common references: mailermailer.com/...anchor-tags-html-emails campaignmonitor.com/...anchor-links-in-email-newsletters/ stackoverflow.com/...anchor-in-pdf-document
Read more

javascript - Why does running this loop 9 times take 100x longer than running it 8 times? -

consider code: test = function() { } t = new test(); (var = 0; < 8; i++) { result = t instanceof test; } if change number of iterations 8 9 , loop take 100 times longer complete in latest version of firefox (41.0.1). tested on 2 different pcs , magic limit 8. here jsperf test used: http://jsperf.com/instanceof-8-times-vs-9-times does have idea why might happen? seems specific instanceof . not happen if else object, example check property. note: filed bugzilla bug this. jan de mooij mozilla team has posted details in bugzilla thread . here's simplistic interpretation of highly technical answers: in i < 8 case, firefox smart enough hoist result = t instanceof test; statement out of loop (according tests, doesn't seem omit altogether). in i < 9 case, apparently doesn't optimization . why? reason not clear, related fact 9 iterations threshold above function considered "hot" enough run through jit compiler. i < 8 cas...
Read more

Getting gateway time-out Rails app with Nginx + Puma running on Digital Ocean -

following this guide setup app on digital ocean droplet, not working. site not loading , it's throwing: "gateway time-out". the puma server works, since ps aux | grep puma prints: root 15878 0.0 0.4 376832 2168 ? sl 12:50 0:00 puma 2.13.4 (unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock) [20150930164940] root 15881 0.0 0.7 903676 3692 ? sl 12:50 0:06 puma: cluster worker 0: 15878 [20150930164940] root 24654 0.0 0.1 11748 916 pts/2 s+ 18:00 0:00 grep --color=auto puma my nginx config: user root; worker_processes 1; events { worker_connections 1024; } http { upstream puma { server unix:///var/www/myapp/shared/tmp/sockets/myapp-puma.sock; } server { listen 80; server_name myapp.com; root /var/www/myapp/current/public; access_log /var/www/myapp/current/log/access.log; error_log /...
Read more