error-metrics code snippets in r