x.r

filter_by_corr = function(correlation_thresh, geno_cor) {
	geno_cor_filter = abs(geno_cor) < correlation_thresh
	diag(geno_cor_filter) = TRUE
	i = 0
	while(TRUE) {
		i = i + 1
		if(i > length(ordered_pairs)) break
		pair = ordered_pairs[i]
		if(! (pair %in% colnames(geno_cor_filter))) {
			next
		}
		filter_by_ith_col = geno_cor_filter[, pair]
		geno_cor_filter = geno_cor_filter[filter_by_ith_col, filter_by_ith_col]
	}
	geno_cor_filter
}