R/getSpecToPlot.R

"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
  }
glotaran/TIMP documentation built on Feb. 11, 2023, 4:11 a.m.