R: If-Else-loop