rep(1,0) gives 'Error: subscript out of bounds'
Here is the new ../src/library/base/funs/rep
-------------------------
(which contains two patches, the first of which I posted on May 20):
rep <- function(x, times, length.out)
{
if (length(x) == 0)
return(x)
if (missing(times))
times <- ceiling(length.out/length(x))
r <- .Internal(rep(x,times))
if(!is.null(nm <- names(x))) names(r) <- .Internal(rep(nm, times))
if (!missing(length.out))
return(r[if(length.out>0) 1:length.out else integer(0)])
return(r)
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To:
r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-