为什么要在R中使用set.seed?