chunyangbao

# This function sorts the matrix for better visualization of mutual exclusivity across genes
memoSort <- function(M) {
	geneOrder <- sort(rowSums(M), decreasing=TRUE, index.return=TRUE)$ix;
	scoreCol <- function(x) {
		score <- 0;
		for(i in 1:length(x)) {
			if(x[i]) {
				score <- score + 2^(length(x)-i);
			}
		}