Simple Gibbs sampler demonstration on conditional exponentials from Chapter 1 (pages 25-27).
expo.gibbs(B,k,m)
B
an upper bound
k
length of the subchains
m
number of iterations
Jeff Gill