R/getFitnesses_basic.R

In edcurry/GABi: Framework for Generalized Subspace Pattern Mining

getFitnesses.basic <- 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))*length(setdiff(features,fitnessArgs$tabu$features))
    }

    score
    }