Wolfram
Mathematica
8의 신기능: 확률과 통계의 해법 및 특성
◄
이전
|
다음
►
핵심 알고리즘
인간 염색체 길이에 대한 기대값 찾기
인간 염색체의 길이가 평균보다 긴 경우에 대한 예상 기대값을 구해봅니다.
In[1]:=
X
\[ScriptCapitalD] = SmoothKernelDistribution[ N[Log[Table[GenomeData[i, "SequenceLength"], {i, 41}] ]]];
In[2]:=
X
expected = NExpectation[x \[Conditioned] x > Mean[\[ScriptCapitalD]], x \[Distributed] \[ScriptCapitalD]];
In[3]:=
X
Labeled[Plot[PDF[\[ScriptCapitalD], x], {x, 0, 30}, PlotStyle -> Thick, Filling -> Axis, FillingStyle -> Hue[.8, .2, .8], Frame -> True, ImageSize -> 400], Style[Row[{Text[ "E(\!\(\*FormBox[\(Length \[Conditioned] Length > Mean\), TraditionalForm]\))"], expected}, "="], FontFamily -> "Verdana"]]
Out[3]=