R/d2q.R

In rcdd: Computational Geometry

Defines functions d2q

Documented in d2q

d2q <- function(x) {
    if (! is.numeric(x))
        stop("argument must be numeric")
    storage.mode(x) <- "double"
    .Call(C_d2q, x)
}

Try the rcdd package in your browser