R/coef.trial.fi.R

In DistanceDevelopment/mrds: Mark-Recapture Distance Sampling

Defines functions coef.trial.fi

Documented in coef.trial.fi

#' @export
coef.trial.fi <- function(object,...){
  vcov <- solvecov(object$hessian)$inv
  coeff <- data.frame(estimate=coef(object$mr),
                      se=sqrt(diag(vcov)))
  return(coeff)
}