Logical Function In R Return