R/S0.fun.R

S0.fun <-
function(ord.bz,n,ord.wt){
  s0 = numeric(n)
  a = ord.wt*exp(-ord.bz)
  s0 = sum(a) - cumsum(a) + a
  return(s0)
}

Try the TransModel package in your browser

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

TransModel documentation built on May 2, 2019, 6:13 a.m.