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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.