Create car_loop.R