R/normdat.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"normdat" <-
  function(mat) {
    if (!is.matrix(mat)) {
      mat <- as.matrix(mat)
    }
    for (i in 1:ncol(mat)) {
      if (max(abs(mat[, i])) == 0) {
        mat[, i] <- 1
      } else {
        mat[, i] <- mat[, i] / max(abs(mat[, i]))
      }
    }
    mat
  }