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