R/logLik.mlcm.R

Defines functions `logLik.mlcm`

`logLik.mlcm` <-
function(object, ...) {
	if (object$method == "glm")
		val <- logLik(object$obj) else {
		val <- object$logLik
		attr(val, "df") <- length(object$par)
		class(val) <- "logLik"
		}
	val
	}

Try the MLCM package in your browser

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

MLCM documentation built on March 18, 2022, 7:31 p.m.