R/tensorTransform.R

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

Defines functions tensorTransform

Documented in tensorTransform

tensorTransform <-
function(x, A, m){
  r <- length(dim(x)) - 1
  x <- tensor(x, A, alongA = m, alongB = 2)
  aperm(x, cyclicalPermute(m, r))
}

Try the tensorBSS package in your browser