simulator and EM estimator for Dawid Skene in R