Nothing
rdw<-function(n,q=exp(-1),beta=1)
{
if(q>1 | q <0)
stop('q must be between 0 and 1', call. = FALSE)
if(beta <=0)
stop('beta must be positive', call. = FALSE)
y<-runif(n,0,1)
x<-as.numeric(lapply(y,qdw,q=q,beta=beta))
return(x)
}
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.