R/calcC.R

"calcC" <-
  function(theta, t) {
    tfun <- function(t, r) exp(-r * t)
    mapply(tfun, r = theta, MoreArgs = list(t = t))
  }
glotaran/TIMP documentation built on Feb. 11, 2023, 4:11 a.m.