R/qpq.R

Defines functions qpq

Documented in qpq

qpq <- function(x, y) {

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

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

    if (! (is.character(x) && is.character(y))) {
        stop("Cannot happen!")
    }

    .Call(C_qoq, x, y, as.integer(1))
}

Try the rcdd package in your browser

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

rcdd documentation built on April 25, 2023, 1:09 a.m.