library(dplyr) knitr::opts_chunk$set(echo = FALSE)
Goal: Correctly cluster observations & regress in high dimensional $X$ & $Y$.
$$ f\left(\boldsymbol{y}{i} \mid \boldsymbol{x}{\boldsymbol{i}} ; \boldsymbol{\theta}\right)=\Sigma_{k=1}^{K} \pi_{k} \mathcal{N}{q}\left(\boldsymbol{y}{\boldsymbol{i}} ; \boldsymbol{x}{\boldsymbol{i}} A{k}, \Sigma_{k}\right) $$

While not converged ($m=1,\ldots, M$) do:
Finally, combine $X$ & $Y$
In simulated data, current algorithm clusters well (perfectly in most cases given enough chains)
Challenges:
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.