R/Ubeta2.fun.R

Defines functions Ubeta2.fun

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 Feb. 3, 2022, 5:08 p.m.