evenodd.R

#Write a function to check if the 
#given input is even or odd

evenodd <-function(a){     
  if(a%%2==0){
    paste(a," is even")
  }
  else {
    paste(a," is odd")
  }
}
evenodd(20)

## [1] "20  is even"