New in Wolfram
Mathematica
8: Nonparametric, Derived, and Formula Distributions
◄
previous
|
next
►
Core Algorithms
Graph of Special Parameter Mixtures
Show how the sources and weight distributions create known parameter mixture distributions.
In[1]:=
X
label = Style["weight", 12, FontFamily -> "Verdana"]; vstyle[a_] = Style[a, 12, FontFamily -> "Verdana"]; styles[list_] := ReplaceAll[list, DirectedEdge[left_, right_] :> DirectedEdge[vstyle[left], vstyle[right]]] stylesWlabel[list_] := ReplaceAll[list, Rule[DirectedEdge[left_, right_], label] :> Rule[DirectedEdge[vstyle[left], vstyle[right]], label]]
In[2]:=
X
Framed[Graph[ styles[{"BinomialDistribution[n,p]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]", "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]", "NegativeBinomialDistribution[n,p]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]", "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]", "PoissonDistribution[\[Mu]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]", "ExponentialDistribution[\[Lambda]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]", "PoissonDistribution[\[Mu]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]", "GammaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]"}], EdgeLabels -> stylesWlabel@{"BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaBinomialDistribution[n,\[Alpha],\[Beta]]" -> label, "BetaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "BetaNegativeBinomialDistribution[n,\[Alpha],\[Beta]]" -> label, "ExponentialDistribution[\[Lambda]]" \[DirectedEdge] "GeometricDistribution[\[Lambda]/(1+\[Lambda])]" -> label, "GammaDistribution[\[Alpha],\[Beta]]" \[DirectedEdge] "NegativeBinomialDistribution[\[Alpha],1/(1+\[Beta])]" -> label}, VertexShapeFunction -> "RoundedRectangle", VertexSize -> {{1.2, .2}}, VertexLabels -> Placed["Name", Center], VertexCoordinates -> {{-1.5, 1/2}, {0, 1.5}, {1.5, 0}, {-1.5, -1/2}, {0, -1.5}, {-1.5, -4}, {0, -4 + 1.5}, {1.5, -4 + 1/2}, {0, -4 - 1.5}, {1.5, -4 - 1/2}}, EdgeStyle -> Blend[{Black, Red}], VertexStyle -> Lighter[Blend[{Green, Blue}], 0.8], ImageSize -> 550], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, Background -> Lighter[Blend[{Yellow, Orange}], 0.8]]
Out[2]=