set_seed function

Work around for unit tests using sample() among various versions of R