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
1 parent 63e8a52
kron.R
##
## k r o n . R Kronecker product
##
kron <- function(a, b) {
if (length(a) == 0 || length(b) == 0) return(c())
if (!(is.numeric(a) || is.complex(a)) ||
!(is.numeric(b) || is.complex(b)))
stop("Arguments 'a' and 'b' must be real/complex vectors/matrices.")
kronecker(a, b)
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...