R/S0.fun.R

Defines functions S0.fun

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 29, 2017, 7:24 p.m.