if else ladder statement in r programming