https://github.com/cran/CARBayes
Tip revision: 9ec653c78ae503302a093c858766eceb08346190 authored by Duncan Lee on 15 January 2021, 12:10:23 UTC
version 5.2.2
version 5.2.2
Tip revision: 9ec653c
coef.CARBayes.R
coef.CARBayes <- function(object,...)
{
#### Return the estimated regression coefficient
if(is.null(nrow(object$samples$beta)))
{
return(NULL)
}else
{
beta <- apply(object$samples$beta, 2, median)
names(beta) <- colnames(object$X)
return(beta)
}
}