R/double.weibull.a.R

double.weibull.a <-
function(x, a1=0.14, b1=0.46, a2=0.86, b2=0.16, duration=300){
  (exp(1)^(-a1*(x-1)^b1)+exp(1)^(-a2*(duration+1-x)^b2))/
    (1+exp(1)^(-a2*duration^b2)+
    (exp(1)^(-a1*duration^b1)-
    exp(1)^(-a2*duration^b2))*(x-1)/duration)
}
fzwaeustc/pcrfn documentation built on May 16, 2019, 4:06 p.m.