R Simulation of the Two Envelopes Problem