Update Gibbs.r