Create Gibbs_Sampler_algorithm.r