phist<-function(x, z, pz){ z<-c(-exp(100), z, exp(100)) pz<-c(0, pz, 1) approx(z, pz, x)$y }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.