R/VIM1.R

In NHEMOtree: Non-hierarchical evolutionary multi-objective tree learner to perform cost-sensitive classification

VIM1 <-
function(Tree, VIM_alt){
  # Vorbereitung
    VIM      <- VIM_alt
    Variablen<- sort(Tree$Varis[,2])

  # Berechnung des VIM fuer einen Baum
    VIM[Variablen-1]<- VIM_alt[Variablen-1]+1
    return(VIM)
}