expectation-maximization code snippets in r

how to do expectation-maximization in r in r