em algorithm code snippets in r

how to do expectation-maximization in r in r