Using R’s standard facilities.
Personally I don’t use R, so I also had to look up that it is set.seed.
set.seed