Create ashutility.R

1. Moved previous functions that are dealing with ash object here.

2. Added the function ashci for computation of credible interval