integrate.hn<-function(keysc,upper){
# integarte the half-Normal detection function...
sqrt(2*pi)*keysc*(pnorm(upper,sd=keysc)-pnorm(0,sd=keysc))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.