Nothing
#### 1/sqrt link ########
inverse.sqrt <- function()
{
linkfun <- function(mu) 1/sqrt(mu)
linkinv <- function(eta) 1/(eta)^2
mu.eta <- function(eta) -2/eta^3
valideta <- function(eta) TRUE
link <- "inverse.sqrt"
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.