# use regular expressions to extract the desired parameters
ran <- as.matrix(fit, pars = "^r_id.*,days")
fix <- as.vector(as.matrix(fit, pars = "^b_days"))
comb <- ran + fix
colMeans(comb) # matches results of coef
<do whatever you want with the samples>