Plot de geschatte clusters
Op dit punt heb je de twee clusters in de data frame gaussian_sample ontdekt. In deze oefening ga je visualiseren hoe de geschatte clusters bij iteratie 10 op de data passen. De vectoren means_iter10 en props_iter10 zijn al in de omgeving opgeslagen.
Hiervoor gebruik je de ggplot2-functie stat_function(), waarmee je een functie over een bestaande plot heen kunt leggen. De functie die je gebruikt is een aangemaakte krommefunctie fun_gaussian(), die als argumenten het gemiddelde en de proportie van de Gaussiaan neemt.
Deze oefening maakt deel uit van de cursus
Mixture Models in R
Oefeninstructies
Plot het histogram in dichtheidsmodus van de variabele x en voeg de geschatte krommen toe met stat_function() in combinatie met de functie fun_gaussian().
Praktische interactieve oefening
Probeer deze oefening eens door deze voorbeeldcode in te vullen.
___ %>%
ggplot() + geom_histogram(aes(x = ___, y = ___), bins = 200) +
stat_function(geom = "line", fun = fun_gaussian,
args = list(mean = means_iter10[1], proportion = ___[1])) +
stat_function(geom = "line", fun = fun_gaussian,
args = list(mean = ___[2], proportion = props_iter10[2]))