R/qinv.R

In rcdd: Computational Geometry

Defines functions qinv

Documented in qinv

qinv <- function(x) {

    if (! (is.numeric(x) || is.character(x)))
        stop("'x' not numeric or character")

    if (is.numeric(x))
        x <- d2q(x)

    .Call(C_qo, x, as.integer(3))
}

Try the rcdd package in your browser