在Mathematica中将函数插值为PDF

Question

我想使用函数插值作为PDF,并能够使用像Mean,Probability,CDF等工具.我做了以下事情:

 f = Interpolation[data];
 dist = ProbabilityDistribution[f[x], {x,0,1000}];

例如,当我尝试:

Mean[dist] //N

它只是返回输入.与其他其他功能相同.

Answer 1

您可以使用离散分布：

data = {1, 2, 1, 3, 4};
data = data/Total@data;
f = Interpolation[data];
dist = ProbabilityDistribution[f[x], {x, 1, 5, 1}];
Mean[dist] // N