Nothing
pMaxCorrNor<-function(x,k,rho){
inner.int<-function(s){
pnorm((s*sqrt(rho)+x)/sqrt(1-rho))^k*dnorm(s)
}
return(1-integrate(inner.int,-Inf,Inf)$value)
}
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.