Em Algorithm Example In R