#' Ping to show server is there
#' @get /ping
function() {
  return('Alive')
}


#' Parse input and return prediction from model
#' @param req The http request sent
#' @post /invocations
function(req) {
  
  # Read in data
  input_json <- fromJSON(req$postBody)
  output <- inference(input_json$features)
  # Return prediction
  return(output)
  
}