R/logLik.hglm.R

logLik.hglm <- function(object, REML=NULL, ...) {
  if (is.null(REML)) { 
    val <- object$likelihood 
  }else{
    if (REML) val <- object$likelihood$pbvh 
  }
  return(val)
}
  

Try the hglm package in your browser

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

hglm documentation built on May 2, 2019, 6:11 p.m.