R/coef.CARBayesST.R

In CARBayesST: Spatio-Temporal Generalised Linear Mixed Models for Areal Unit Data

Defines functions coef.CARBayesST

Documented in coef.CARBayesST

coef.CARBayesST <- function(object,...)
{
    #### Return the estimated regression coefficient
    if(is.null(nrow(object$samples$beta)))
    {
        return(NULL)  
    }else
    {
    beta <- apply(object$samples$beta, 2, mean)
    names(beta) <- rownames(object$summary.results)[1:length(beta)]
    return(beta)
    }
}

Try the CARBayesST package in your browser