R语言密度函数生成随机数