R/Ubeta1.fun.R

Ubeta1.fun <-
function(ord.delta,ord.z,S0,S1,ord.wt){
  a = -ord.delta*(ord.z-S1/S0)*ord.wt
  b = apply(a,2,sum)
  return(b)  
}

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.