Create reducer.R