R/matorder.R

"matorder" <-
function (...)
{
    x = cbind(...)
    if(!is.numeric(x))
        stop("Input should be numeric.")
    do.call("order", lapply(1:ncol(x), function(i) x[, i]))
}

Try the geometry package in your browser

Any scripts or data that you put into this service are public.

geometry documentation built on May 2, 2019, 6:09 p.m.