R/baseCortime.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"baseCortime" <-
  function(data, basev) {
    psisim <- data@psi.df
    tmin <- max(basev[1], 1)
    tmax <- min(basev[2], data@nt)
    lmin <- max(basev[3], 1)
    lmax <- min(basev[4], data@nl)

    for (j in tmin:tmax) {
      baseline <- sum(psisim[j, lmin:lmax]) / (length(lmin:lmax))
      psisim[j, ] <- psisim[j, ] - baseline
    }
    data@psi.df <- psisim
    data
  }