R/fitdist.R

In em: Generic EM Algorithm

Defines functions coef.summary.fitdist nobs.fitdist

nobs.fitdist <- function(object, ...) {
  object$n
}

coef.summary.fitdist <- function(object, ...) {
  z <- cbind(object$estimate, object$sd)
  colnames(z) <- c("coef", "sd")
  z
}

Try the em package in your browser