Create sampleposterior.r