https://github.com/cran/pracma
Revision a9b4d5f19cb88cd9d0d31fdde0d654737327d085 authored by HwB on 15 April 2012, 00:00:00 UTC, committed by Gabor Csardi on 15 April 2012, 00:00:00 UTC
1 parent d5bfb0e
Tip revision: a9b4d5f19cb88cd9d0d31fdde0d654737327d085 authored by HwB on 15 April 2012, 00:00:00 UTC
version 1.0.5
version 1.0.5
Tip revision: a9b4d5f
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)
}
Computing file changes ...