已知概率密度用R代码生成随机数