#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.