Displaying 1 result from an estimated 1 matches for "dropz".
Did you mean:
drop
2001 Jul 01
1
indexing
...iptions",sep=""),
local.ext=".INDEX.tmp") {
download.file(paste(descrip,"/",pkg,".INDEX",sep=""),
paste(pkg,local.ext,sep=""))
}
## strsplit produces zero-length chars if there are leading spaces
dropz <- function(x) {
x[nchar(x)>0]
}
nwords <- function(x) {
sapply(strsplit.words(x),function(z)length(dropz(z)))
}
strsplit.words <- function(x) {
strsplit(gsub("[ \t]*"," ",x)," ")
}
tr.index <- function(fn) {
## cat(fn,"\n")
lines...