Novos Recursos do
Mathematica
8: Distribuições não-paramétricas, derivadas e de fórmulas
◄
anterior
|
próximo
►
Principais Algoritmos
Aplique censura a uma distribuição
As funções de distribuição de probabilidade e de distribuição acumulada
CensoredDistribution
possuem descontinuidades nos extremos do intervalo de censura, dando a distribuição uma característica contínua-discreta mixa.
In[1]:=
X
LeftCensored\[ScriptCapitalD] = CensoredDistribution[{5, \[Infinity]}, PoissonDistribution[7]]; RightCensored\[ScriptCapitalD] = CensoredDistribution[{-\[Infinity], 9}, PoissonDistribution[7]]; DoubleCensored\[ScriptCapitalD] = CensoredDistribution[{5, 9}, PoissonDistribution[7]]; g1 = Table[DiscretePlot[ Evaluate@{PDF[m, x], PDF[PoissonDistribution[7], x]}, {x, 0, 13}, ExtentSize -> 0.5], {m, {LeftCensored\[ScriptCapitalD], RightCensored\[ScriptCapitalD], DoubleCensored\[ScriptCapitalD]}}];
In[2]:=
X
LeftCensored\[ScriptCapitalD] = CensoredDistribution[{-1, \[Infinity]}, NormalDistribution[]]; RightCensored\[ScriptCapitalD] = CensoredDistribution[{-\[Infinity], 1}, NormalDistribution[]]; DoubleCensored\[ScriptCapitalD] = CensoredDistribution[{-1, 1}, NormalDistribution[]]; g2 = Table[Plot[{CDF[m, x], CDF[NormalDistribution[], x]}, {x, -3, 3}, Filling -> Axis, Exclusions -> None], {m, {LeftCensored\[ScriptCapitalD], RightCensored\[ScriptCapitalD], DoubleCensored\[ScriptCapitalD]}}];
In[3]:=
X
Framed[GraphicsGrid[{g1, g2}, ImageSize -> {550, 330}, Spacings -> {Automatic, 170}], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, FrameMargins -> 10, Background -> Lighter[LightYellow, 0.7]]
Out[3]=