Wolfram
Mathematica
8의 신기능: 매개 변수 추정 및 검정
◄
이전
|
다음
►
핵심 알고리즘
추정된 copula와 이론적 copula에 대한 분포 함수 비교
추정된 copula 분포의 확률 밀도 함수와 누적 분포 함수 및 데이터에서 추출시킨 분포의 확률 밀도 함수와 누적 분포 함수의 각각의 차이를 비교합니다.
In[1]:=
X
\[ScriptCapitalD]o = CopulaDistribution[{"Frank", 1/2}, {GammaDistribution[2, 3], ChiSquareDistribution[10]}]; data = BlockRandom[SeedRandom[987]; RandomVariate[\[ScriptCapitalD]o, 100]];
In[2]:=
X
\[ScriptCapitalD]e = EstimatedDistribution[data, CopulaDistribution[{"Frank", c}, {GammaDistribution[\[Alpha], \[Beta]], ChiSquareDistribution[n]}]];
In[3]:=
X
GraphicsGrid[{{Plot3D[ PDF[\[ScriptCapitalD]o, {x, y}] - PDF[\[ScriptCapitalD]e, {x, y}], {x, 0, 25}, {y, 0, 35}, MeshFunctions -> {#3 &}, Mesh -> 25, ColorFunction -> "AvocadoColors", PlotStyle -> Directive[Opacity[.75]], PlotPoints -> 50, PlotRange -> All, PlotLabel -> Style["PDF difference", FontSize -> 20, FontFamily -> "Verdana"]]}, {Plot3D[ CDF[\[ScriptCapitalD]o, {x, y}] - CDF[\[ScriptCapitalD]e, {x, y}], {x, 0, 25}, {y, 0, 35}, MeshFunctions -> {#3 &}, Mesh -> 25, ColorFunction -> "AvocadoColors", PlotStyle -> Directive[Opacity[.75]], PlotPoints -> 50, PlotRange -> All, PlotLabel -> Style["CDF difference", FontSize -> 20, FontFamily -> "Verdana"]]}}, Spacings -> 0]
Out[3]=