R/qresid_pois.R

Defines functions qresid_pois

qresid_pois <- function(model) {
  y <- model$y
  u <- runif(n = length(y))
  mu <- fitted(model)
  cdf.pois <- ppois(y-1, lambda = mu) + u * dpois(y, lambda = mu)
  res <- qnorm(cdf.pois)
  res
}
reealpeppe/glmdiag documentation built on Dec. 22, 2021, 2:06 p.m.