Fuel Lines Function In R Studio