R/vander.R

Defines functions vander

Documented in vander

###
### $Id: vander.R 29 2022-05-30 23:02:22Z proebuck $
###
### Returns the Vandermonde matrix.
###


##-----------------------------------------------------------------------------
vander <- function(v) {
    if (!is.vector(v)) {
        stop(sprintf("argument %s must be vector", sQuote("v")))
    } else if (!(is.numeric(v) || is.complex(v))) {
        stop(sprintf("argument %s must be numeric or complex", sQuote("v")))
    }

    n <- length(v)
    A <- if (n == 0) {
             matrix(as.numeric(NA), nrow=0, ncol=0)
         } else {
             outer(v, seq(n-1, 0), "^")
         }
    A
}

Try the matlab package in your browser

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

matlab documentation built on July 1, 2024, 5:07 p.m.