Zastosowanie algorytmu EM do mieszanki rozkładów dla zbioru faithful
# wczytanie biblioteki mixtools
library(mixtools)
# wczytanie zbioru danych
data(faithful)
attach(faithful)
w=normalmixEM(waiting, arbvar = FALSE, epsilon = 1e-03)
# wyświetlenie wyniku
w