7-1-switching-gears-in-R