Create reduce.R