Radiator In A Car Function In R