Converts MCMC output list into dataframe with better column names for plotting

convert_to_df.R

# from Cole Monnahan https://github.com/colemonnahan/fcwhales
convert_to_df <- function(fit, name = NULL){
  fit <- as.mcmc(fit)
  post <- data.frame(do.call(rbind, fit))
  new <- gsub('[.]$', '', names(post))
  new <- gsub('[.]','_', new)
  names(post) <- new
  if(!is.null(name)) post$model <- name
  return(post)
}