Nothing
corr.nn4pn<-function(lam, PN.cor){
x=rnorm(100000,0,1)
y=rnorm(100000,0,1)
xpois=qpois(pnorm(x),lam)
c=cor(xpois[order(xpois)],y[order(y)])/cor(x[order(x)],y[order(y)])
corrected=PN.cor/c
return(corrected)
}
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.