library(testthat) library(EMgaussian) test_check("EMgaussian")