Create map.R

map reduce with stream (based on R script)