Add set.seed so result is reproduciable