R/getFitnesses_entropy.R

Defines functions getFitnesses.entropy

Documented in getFitnesses.entropy

getFitnesses.entropy <- function(chr){
        score <- 0
        if(sum(chr)>1){
                features <- which(rowMeans(x[diffRows,chr==1])>fitnessArgs$consistency)
                score <- -length(setdiff(which(chr==1),fitnessArgs$tabu$samples))*sum(log(fitnessArgs$featureWeights[diffRows[setdiff(features,fitnessArgs$tabu$features)]]))
        }
        score
}

Try the GABi package in your browser

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

GABi documentation built on May 29, 2017, 11:02 a.m.