r - 如何获得估计密度的函数？

Question

如何将密度(数据集)的结果保存为函数？
那么如果我想评估该函数中的点 x，它会给我来自该密度(数据集)的概率？

Answer 1

(特定点的密度值不是该点的概率。)

> d <- density(sample(10,1000000,replace=TRUE,prob=(1:10)/sum(1:10)))
> plot(d)

# the density is estimated at a specified number of points. I find the closest to
# the point I want to know the density's value of and then get that value.

> fd <- function(x) d$y[which.min(abs(d$x - x))]
> fd(6)
[1] 0.311895