R/baseIRF.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"baseIRF" <-
  function(irfvec, indexlow, indexhigh, removeNeg = FALSE) {
    irfvec <- irfvec - mean(irfvec[indexlow:indexhigh])
    if (removeNeg) {
      irfvec[which(irfvec < 0)] <- 0
    }
    irfvec
  }