Nothing
ResExpW <-
function(r) {zero <- 1e-6
nr <- length(r); num <- rep(0,nr)
for (i in 1:nr) num[i] <- intxlwbl(r[i])
den <- 1-plweibul(r)
ind <- (den < zero)
val <- num/den; val[ind] <- r[ind]
val}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.