Nothing
"pdfln3" <-
function(x,para) {
if(! are.parln3.valid(para)) return()
ZETA <- para$para[1]
U <- exp(para$para[2])
A <- para$para[3]
gnopara <- vec2par(c(ZETA + U, U*A, -A), type="gno")
return(pdfgno(x,gnopara))
}
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.