add script map.R