随便给个向量，如下，用density()方程求这个向量元素的概率密度函数，即根据已知有限几个数据估计一个适用于这个规律的分布。想从这个估计的分布上随机取值怎么取？
如下面程序，A即是估计的密度函数，假如想从这个密度函数上随机取10000个数，如何操作？

Data = c(2,3,8)
A=density(Data, kernel = "gaussian", n=512)

如果A是个数据，那就直接 sample(A, 10000, replace=FALSE), 但是A是函数不是数据集所以行不通啊。