Nothing
hrdiweibull<-Vectorize(function(x, q, beta)
{
if(x!=floor(x) | x<1)
{stop("Non-feasible value of x!",x)}
(q^x^(-beta)-q^(x-1)^(-beta))/(1-q^(x-1)^(-beta))
}
)
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.