![EMAllPlot[initialModel, gdata, pr] ;](../HTMLFiles/index_15.gif){kind=small}
EM algorithm
Initialize EM algorithm
Compute EM trajectory
Visualize EM solution
Initial model
![[Graphics:../HTMLFiles/index_16.gif]](../HTMLFiles/index_16.gif)
Final model
![EMAllPlot[em // Last, gdata, pr] ;](../HTMLFiles/index_17.gif){kind=small}
![[Graphics:../HTMLFiles/index_18.gif]](../HTMLFiles/index_18.gif)
Plot log-likelihood of data given the model as a function of EM iteration
![PlotLogLikelihood[em, xd] ;](../HTMLFiles/index_19.gif){kind=small}
![[Graphics:../HTMLFiles/index_20.gif]](../HTMLFiles/index_20.gif)
Save EM data
Animation
![EMAllPlot[#, gdata, pr] & /@ em2 ;](../HTMLFiles/index_22.gif){kind=small}
![[Graphics:../HTMLFiles/index_30.gif]](../HTMLFiles/index_30.gif)
Created by Mathematica (September 8, 2003)