R/model.matrix.cmulti.R

model.matrix.cmulti <-
function (object, ...)
{
    if (!is.null(object$x))
        rval <- object$x
    else if (!is.null(object$model))
        rval <- model.matrix(object$formula, object$model)
    else stop("not enough information in fitted model to return model.matrix")
    return(rval)
}

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.