The R Project SVN R

(root)/branches/djm-source/src/library/base/R/utilities.R – Rev 42208

Rev 4662 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

mat.or.vec <- function(nr,nc)
    if(nc==1) numeric(nr) else matrix(0,nr,nc)

## Use  'version' since that exists in all S dialects :
is.R <-
    function() exists("version") && !is.null(vl <- version$language) && vl == "R"