Control Statement In R