New in Wolfram
Mathematica
8: Probability and Statistics Solvers and Properties
◄
previous
|
next
►
Core Algorithms
Find the Expected Length of a Human Chromosome
Find the expected length of a human chromosome, given that the length is greater than the mean.
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]=