R/summary.hdglm.R

summary.hdglm <-
function(object, ..., level=NULL) {
  if(is.null(level)) level <- 1
  z <- object
  z$level <- level
  class(z) <- c('summary.hdglm','summary.hdlm')
  z
}

Try the hdlm package in your browser

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

hdlm documentation built on May 2, 2019, 8:35 a.m.