R/mFlatten.R

In tensorBSS: Blind Source Separation Methods for Tensor-Valued Observations

Defines functions mFlatten

Documented in mFlatten

mFlatten <- function(x, m){
  rplusone <- length(dim(x))
  aperm(apply(x, c(m, rplusone), c), c(2, 1, 3))
}

Try the tensorBSS package in your browser