Nothing
gof <- function(y = NULL, mu = NULL, rowlabels = FALSE){ # HJ -- was F
if (rowlabels) c("deviance", "Pearson")
else {
temp <- y != 0
c(2 * sum(y[temp] * log(y[temp] / mu[temp])), sum((y - mu) ^ 2 / mu))
}
}
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.