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 May 2, 2019, 5:55 p.m.