example_EMOS_fit.R