R/replaceNames.R

In creil94/FeatureSelectionDashboard:

replaceMethodName = function(methodName) {
  if(methodName == "CORElearn_information.gain") {
    return("information gain")
  }
  else if(methodName == "CORElearn_ReliefFbestK") {
    return("ReliefF")
  }
  else if(methodName == "praznik_MRMR") {
    return("mRMR")
  }
  else if(methodName == "ranger_impurity") {
    return("ranger impurity")
  }
  else if(methodName == "Biocomb_FCBF") {
    return("FCBF")
  }
  else if(methodName == "FSelector_chi.squared") {
    return("chi-squared")
  }
  else if(methodName == "PCA_LoadingScore") {
    return("PCA loading")
  }
  else if(methodName == "Biocomb_CFS") {
    return("CFS")
  }
  else if(methodName == "sffs") {
    return("SFFS")
  }
  else if(methodName == "sfbs") {
    return("SFBS")
  }
  else if(methodName == "ga") {
    return("Genetic Algorithm")
  }
  else if(methodName == "GramSchmidt") {
    return("Gram-Schmidt")
  }
  else if(methodName == "PCALoadingKMeansClustering") {
    return("PCA k-means")
  }
  else if(methodName == "IML_ALEFromKSvm") {
    return("ALE-Plot (SVM)")
  }
  else if(methodName == "IML_ALEFromNNet") {
    return("ALE-Plot (nnet)")
  }
  else if(methodName == "IML_RpartSurrgateFromKSvm") {
    return("Surrogate-Tree (SVM)")
  }
  else if(methodName == "IML_RpartSurrgateFromKNnet") {
    return("Surrogate-Tree (nnet)")
  }
  # else if(methodName == "full_predictor") {
  #   return("All Features")
  # }

  return(methodName)
}


replaceClassifierName = function(classifier) {
  if(classifier == "kknn") {
    return("k-NN")
  }
  else if(classifier == "ksvm") {
    return("SVM")
  }
  else if(classifier == "nnet") {
    return("Neural Network")
  }
  else if(classifier == "rpart") {
    return("Decision Tree")
  }
}

replaceDatasetName = function(dataset) {
  if(dataset == "credit") {
    return("German Credit")
  }
  else if(dataset == "leukemia") {
    return("Leukemia")
  }
  else if(dataset == "mnistnumber") {
    return("MNIST")
  }
  else if(dataset == "pcmac") {
    return("PCMAC")
  }
  else if(dataset == "spambase") {
    return("Spambase")
  }
  else if(dataset == "wine") {
    return("Wine")
  }
  else if(dataset == "zoo") {
    return("Zoo")
  }
  else if(dataset == "pixraw10p") {
    return("PixRaw10P")
  }
}