R/calcC.R

"calcC" <-
  function(theta, t) {
    tfun <- function(t, r) exp(-r * t)
    mapply(tfun, r = theta, MoreArgs = list(t = t))
  }

Try the TIMP package in your browser

Any scripts or data that you put into this service are public.

TIMP documentation built on Dec. 28, 2022, 3:06 a.m.