Solution Review: Returning from a Function

evenOdd <- function(testVariable) 
{
  output <- vector("character", 0) # initializing an empty character vector
  
  for(v in testVariable)
  {
    if(v %% 2 == 0)
    {
      # Insert even in vector if conditional statement satisfied
      output <- c(output, "even") 
    }
    else
    {
      # Insert odd in vector if conditional statement not satisfied
      output <- c(output, "odd")
    }
  }
  return(output) # returning the output vector. 
  # You can also simply write output here.
}
# Driver Code
evenOdd(c(78, 100, 2))