R/fitted.cmulti.R

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

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

detect documentation built on March 31, 2023, 10:02 p.m.