r语言概率密度函数生成样本