https://github.com/cran/CARBayes
Tip revision: 6bc0974d5ac8d7a229e06d9c38a4eadf17c0f859 authored by Duncan Lee on 13 March 2020, 07:50:06 UTC
version 5.2
version 5.2
Tip revision: 6bc0974
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)
}
}