R/getFitnesses_basic.R

Defines functions getFitnesses.basic

Documented in getFitnesses.basic

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
	}

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.