Nothing
Cor.PN.Limit <-
function(lam){
X=rnorm(100000,0,1)
Y=rnorm(100000,0,1)
U = pnorm(X)
Xpois = qpois(U,lam)
max = cor(Xpois[order(Xpois)],Y[order(Y)])
min = cor(Xpois[order(Xpois,decreasing=TRUE)],Y[order(Y)])
rm(X,Y)
return(c(min,max))
}
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.