Create early crime map.R