R/select.R

Defines functions select

Documented in select

select <-
function(fila, vardep.summary, ...) {
    
    if(length(which(fila==max(fila)))>1)
    {predclass <-names(vardep.summary[which(fila==max(fila))])[
      order(vardep.summary[which(fila==max(fila))],decreasing=TRUE)[1]]
    }
    else{predclass<- as.character(names(vardep.summary)[(order(fila,decreasing=TRUE)[1])])} 
    
   # ans<-predclass
   predclass
  }

Try the adabag package in your browser

Any scripts or data that you put into this service are public.

adabag documentation built on Jan. 20, 2018, 9:04 a.m.