Ehrenfest Diffusion Process Simulation Code in R