R/simpPol.R

"simpPol" <-
  function(sumT, par, lambda, lambdac) {
    for (i in 1:length(par)) {
      sumT <- sumT + (par[i] * ((lambda - lambdac) / 100)^i)
    }
    sumT
  }
glotaran/TIMP documentation built on Feb. 11, 2023, 4:11 a.m.