search for: myiter

Dear Experts, The following is my "Iterator". When I try to write a new function with itel, I got error. This is what I have: > supDist<-function(x,y) return(max(abs(x-y))) > > myIterator <- function(xinit,f,data=NULL,eps=1e-6,itmax=5,verbose=FALSE) { + xold<-xinit + itel<-0 + repeat { + xnew<-f(xold,data) + if (verbose) { + cat( + "Iteration: ",formatC(itel,width=3, format="d"), + "xold: ",formatC(xold,digits=8,width=12,...

Hi All I was wondering if anyone had a solution for the following problem. I user QueryParser to stem my documents before adding them to a database. During the stemming process I would like to find a way of keeping proper nouns that span two or more words together as a phrase. For example "New York" or "Gordon Brown" or "Prime Minister" get spilt up. I see

...+ }, { + Z <- .C(R_kmeans_Lloyd, as.double(x), as.integer(m), + as.integer(ncol(x)), centers = as.double(centers), + as.integer(k), c1 = integer(m), iter = as.integer(iter.max), + nc = integer(k), wss = double(k)) + myIter=Z$iter + if (Z$iter > iter.max) warning("did not converge in ", + iter.max, " iterations", call. = FALSE) + if (any(Z$nc == 0)) warning("empty cluster: try a better set of initial centers", + call. = FALSE) +...