Nothing
`glog` <-
function(x, a=1, InverseQ=FALSE) {
#see glog.nb for derivation of inverse
if (InverseQ) {
out<-0.25*exp(-x)*(4*exp(2*x)-(a*a))
}
else
out<-log((x + sqrt(x^2 + a^2))/2)
out
}
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.