Nothing
doubexp <-
function()
{
linkfun <- function(mu) { ifelse( (mu<0.5), log(2*mu), abs(log(2*(1-mu))) ) }
linkinv <- function(eta) { (1+sign(eta))/2 - sign(eta)*exp(-abs(eta))/2 }
mu.eta <- function(eta) { exp(-abs(eta))/2 }
valideta <- function(eta) TRUE
link <- paste0("doubexp(",")")
structure (list(linkfun = linkfun, linkinv = linkinv,
mu.eta = mu.eta, valideta = valideta, name = link),
class = "link-glm")
}
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.