R/getAniSuper.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"getAniSuper" <- function(A, ani) {
  A_p <- A
  if (length(ani$super) > 0) {
    for (i in 1:length(ani$super)) {
      A_p <- cbind(A_p, rowSums(A[, ani$super[[i]]]))
    }
  }
  A_p
}