R/vehicle_region.R

In hongqi0314/PRAuto.PMML: User defined functions to output a PMML file that is to be implemented in S1

#' Generate vehicle region
#'
#' Give vehicle region based on given make name
#'
#' @param make Character string indicating vehicle make name
#'
#' @return Character string representing vehicle region
#'
#' @export
#'
#' @examples
#' vehicle_region('Cadillac')
vehicle_region <- function(make) {
  Region <- ''

  if (make %in% c('Acura', 'Honda', 'Infiniti', 'Lexus', 'Mazda',
                      'Mitsubishi', 'Nissan', 'Scion', 'Subaru', 'Suzuki',
                      'Toyota')) {
    Region <- 'JAPANESE'
  }
  else if (make %in% c('Audi', 'BMW', 'Mercedes-Benz', 'Mini', 'Porsche',
                           'Volkswagen', 'Volvo')) {
    Region <- 'EUROPEAN'
  }
  else if (make %in% c('Buick', 'Cadillac', 'Chevrolet', 'Chrysler', 'Dodge',
                           'Fiat', 'Ford', 'GMC', 'Jeep', 'Lincoln', 'Mercury',
                           'Pontiac', 'Ram')) {
    Region <- 'AMERICAN'
  }
  else if (make %in% c('Hyundai', 'Kia')) {Region <- 'KOREAN'}
  else (Region <- 'OTHER')

  return(Region)
}