r语言生成满足某概率密度的随机数