5

関数の補間をPDFとして使用し、平均、確率、CDFなどのツールを使用できるようにしたい。私は次のことをしました：

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

そして、例えば私が試してみると：

Mean[dist] //N

入力を返すだけです。他の機能と同じです。

4

3 に答える 3

2

離散分布を使用できます。

data = {1, 2, 1, 3, 4};
data = data/Total@data;
f = Interpolation[data];
dist = ProbabilityDistribution[f[x], {x, 1, 5, 1}];
Mean[dist] // N
于 2012-04-16T15:12:39.647 に答える
1

使用できますEmpiricalDistribution：

f = EmpiricalDistribution[data]

Mean[f]
(* 1/5 *)

Expectation[x^3, x \[Distributed] f]
(* 101/6655 *)

Moment[f, 2]
(* 31/605 *)
于 2012-04-16T20:16:00.173 に答える
1

SmoothKernelDistribution を試すこともできます。

d = SmoothKernelDistribution[data];

cdf=CDF[d]

Plot[cdf[x], {x, -1, 1}]

Quantile[d, 0.95]

Moment[d, 2]
于 2012-04-16T16:24:46.870 に答える