added wordcount mapper/reducer implemented in R