R/double.weibull.c.R

double.weibull.c <-
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)-
    exp(1)^(-a2*duration^b2))
}
fzwaeustc/pcrfn documentation built on May 16, 2019, 4:06 p.m.