swh:1:snp:81eadaa089e8253d8469bcef66aa332632c6c669
Tip revision: 00dcc24912cb9162914b67ae18137cab456a0b21 authored by Hans W. Borchers on 06 September 2016, 16:40:55 UTC
version 1.9.5
version 1.9.5
Tip revision: 00dcc24
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)
}