Skip to main content

Browse the archive

https://github.com/cran/pracma
14 July 2021, 03:53:30 UTC
Revision d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC, committed by Gabor Csardi on 09 March 2012, 00:00:00 UTC 
version 1.0.1
1 parent 63e8a52
Raw File
Tip revision: d5bfb0e3b7a3211ff2bbe2926e5ba31aa24e4df6 authored by HwB on 09 March 2012, 00:00:00 UTC
version 1.0.1
Tip revision: d5bfb0e
vander.R 
###
### VANDER.R  Vandermonde matrix
###


vander <- function(x) {
    n <- length(x)
    if (n == 0) return(matrix(0, nrow=0, ncol=0))
    if ((!is.numeric(x) && !is.complex(x)) || is.array(x))
        stop("Argument 'x' must be a numeric or complex  vector.")

    A <- outer(x, seq(n-1, 0), "^")
    return(A)
}
back to top