Nothing
d2th_dmu2_mk <- function(fml){
switch(fml,
binomial = function(mu, mi) 1 / (mi - mu)^2 - 1 / mu^2,
poisson = function(mu, mi) - 1 / mu^2,
Gamma = function(mu, mi) - 2 / mu^3,
inverse.gaussian = function(mu, mi) - 3 / mu^4
)
}
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.