R/gof.R

Defines functions gof

Documented in gof

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))
  }
}

Try the exactLoglinTest package in your browser

Any scripts or data that you put into this service are public.

exactLoglinTest documentation built on May 1, 2019, 9:58 p.m.