"slmomco" <-
function(x,para) {
if(! are.par.valid(para)) return()
f <- par2cdf(x,para,paracheck=FALSE)
return(1 - f)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.