Update reducer.R

Aus dem EMR-Test