R/extract_betas.R

In fdzul/phdfadm:

#' Extract regression coefficients
#'
#' @param x is INLA object result of apply the INLA::inla function.
#' @param link is the name of distribution.
#'
#' @return a dataframe.
#' @export
#'
#' @examples
extract_betas <- function(x, link){
    y <- x$summary.fixed[-1,c(1, 3, 5)]
    y$n_ovitraps <- row.names(y)
    y$link <- link
    y$dic <- x$dic$dic
    y
}