R/Ubeta2.fun.R

Ubeta2.fun <-
function(ord.delta,ord.z,ord.bz,Rt,r,ord.wt){
    if(r > 0) a = ord.z*ord.wt*(ord.delta-(1/r)*log(1+r*Rt*exp(-ord.bz)))
    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.