Plots the inferred beta with confidence intervals (when they can be calculated)
plotbeta(dat)
dat
the list produced from the runtsir, mcmctsir, and simulatetsir function.