Create Traffic_collisions.R