R/step.g3.R

Defines functions step.g3

Documented in step.g3

step.g3 <-
function(param) {
    a <- param$a
    b <- param$b
    cc <- param$cc
    p <- ncol(a)
    q <- ncol(b)
    r <- ncol(cc)
    x <- param$x
    x <- flatten(x)
    ax <- t(a) %*% x
    bc <-Kron( b, cc)
    g <- ax %*% bc
    dim(g) <- c(p, q, r)
    param$g <- g
    param
}

Try the CA3variants package in your browser

Any scripts or data that you put into this service are public.

CA3variants documentation built on Aug. 1, 2019, 5:06 p.m.