Nothing
dd.est <-
function(x, y){
r<-3
m<-length(x)
n<-length(y)
Ni<-m*(1-ecdf(x)(sort(y)))
Mi<-n+1-(1:n)
theta0.hat<-(r-1)*n*sum(Ni^r/Mi^2)/m^r
theta0.hat
}
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.