Local definitions

Plot two Gaussians in different colors

RowBox[{RowBox[{PlotMeansTwo[{μ_, Σ_, priors_}, pr_, colors_, opt___], :=, , ... x}, {ymin, ymax}}, FrameTrue, AspectRatioAutomatic, opt]}]}], , ]}]}], ;}]

Plot P(ω_i | θ, x_j) for sample point

(* Note : fix global pr reliance *)

RowBox[{RowBox[{PlotExampleOne[x_, model_, colors_, gbase_, flag_:0, opts___], :=, , R ... #62754;True, FrameTicksNone, AspectRatioAutomatic, opts]}]}], , ]}]}], ;}]

Created by Mathematica  (September 8, 2003)