R/mmid.R

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

#' Generate make and model ID for loan collateral
#'
#' Generate make and model ID for loan collateral based on 'VehicleMake_0' and
#' 'VehicleModel_0'.
#'
#' @param make_cascade Character string indicating vehicle make cascade
#' @param model Character string indicating vehicle model
#'
#' @return An integer as the make and model ID
#'
#' @export
#'
#' @examples
#' mmid(make_cascade = 'Hyundai', model = 'Rio')
mmid <- function(make_cascade, model) {
  if (make_cascade == "GMC") {mmid <- 1} # Other GMC
  else if (make_cascade == "ChryslerFiat") {mmid <- 2} # Other ChryslerFIAT
  else if (make_cascade == "Ford") {
    if (model == 'Fusion' | model == 'Mustang') {mmid <- 3} # FusionMustang
    else {mmid <- 4} # Other Ford
  }
  else if (make_cascade == "Honda") {
    if (model == 'Accord') {mmid <- 5} # Accord
    else {mmid <- 6} # Other Honda
  }
  else if (make_cascade == 'Hyundai') {
    if (model == 'Accent') {mmid <- 7} # Accent
    else if (model == 'Elantra') {mmid <- 8} # Elantra
    else if (model == 'Sonata') {mmid <- 9} # Sonata
    else if (model == 'Veloster') {mmid <- 10} # Veloster
    else if (model == 'Rio') {mmid <- 11} # Rio
    else {mmid <- 12} # Other Hyundai
  }
  else if (make_cascade == 'Mazda') {mmid <- 13} # Other Mazda
  else if (make_cascade == 'Mitsubishi') {mmid <- 14} # Other Mitsubishi
  else if (make_cascade == 'Nissan') {
    if (model == 'Altima') {mmid <- 15} # Altima
    else if (model == 'Sentra') {mmid <- 16} # Sentra
    else if (model == 'Versa') {mmid <- 17} # Versa
    else {mmid <- 18} # Other Nissan
  }
  else if (make_cascade == 'Toyota') {
    if (model == 'Camry') {mmid <- 19} # Camry
    else if (model == 'Corolla') {mmid <- 20} # Corolla
    else if (model == 'Tacoma') {mmid <- 21} # Tacoma
    else if (model == 'Yaris') {mmid <- 22} # Yaris
    else if (model == 'Rav4') {mmid <- 23} # Rav4
    else {mmid <- 24} # Other Toyota
  }
  else {mmid <- 25} # Other Other
  return(mmid)
}