Create GibbsSampler.R