R/fitted.cmulti.R

In detect: Analyzing Wildlife Data with Detection Error

Defines functions fitted.cmulti

Documented in fitted.cmulti

fitted.cmulti <-
function(object, ...){
    type <- object$type
    if (type %in% c("mix", "fmix"))
        stop("fitted values are not available for finite mixture model")
    X <- model.matrix(object)
    poisson("log")$linkinv(drop(X %*% coef(object)))
}

Try the detect package in your browser