kron:

In musto101/wilcox_R: What the package does (short line)

Usage

kron(m1, m2)

Arguments

m1
m2

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (m1, m2) 
{
    m1 <- as.matrix(m1)
    m2 <- as.matrix(m2)
    kron <- vector(mode = "numeric", length = 0)
    for (i in 1:nrow(m1)) {
        m3 <- m1[i, 1] * m2
        for (j in 2:ncol(m1)) m3 <- cbind(m3, m1[i, j] * m2)
        if (i == 1) 
            kron <- m3
        if (i >= 2) 
            kron <- rbind(kron, m3)
    }
    kron
  }

musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.