eml_example.R