R/getSpecToPlot.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"getSpecToPlot" <-
  function(E, cohmax, cohcol, plotcohcolspec = TRUE) {
    if (plotcohcolspec) {
      if (!identical(cohcol, 0)) {
        E[, cohcol] <- E[, cohcol] * cohmax
      }
    } else {
      if (!identical(cohcol, 0)) {
        E <- E[, -cohcol]
      }
    }
    E
  }