Fixes #87

The new unit test expected values are from R-2.14.2's sample()