Introduction to Probability Simulation and Gibbs Sampling with R