R/double.weibull.R

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