Create ratemap.R