WOLFRAM

Wolfram Language & System Documentation Center

Expected Length of a Human Chromosome

Find the expected length of a human chromosome, given that the length is greater than the mean.

    
Wolfram Language code: 𝒟 = SmoothKernelDistribution[ N[Log[Table[GenomeData[i, "SequenceLength"], {i, 41}] ]]];
Wolfram Language code: expected = NExpectation[xx > Mean[𝒟], x𝒟];
Wolfram Language code: Labeled[Plot[PDF[𝒟, x], {x, 0, 30}, PlotStyle -> Thick, Filling -> Axis, FillingStyle -> Hue[.8, .2, .8], Frame -> True, ImageSize -> 400], Style[Row[{Text["E(TraditionalFormLength  Length > Mean)"], expected}, "="], FontFamily -> "Verdana"]]