R语言随机数生成的实现