New in Wolfram
Mathematica
8: Resolución y propiedades de probabilidad y estadística
◄
previous
|
next
►
Algoritmos de núcleo
Encuentre el largo esperado de un cromosoma humano
Encuentre el largo esperado de un cromosoma humano dado que el largo es mayor que la media.
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]=