conditional-statement-in-r