Fuel Lines Function In R