[r] Reasons for using the set.seed function