The Joy of Reading Code Written in Academia

ChromaSig_seq.pl

# See http://bioinformatics-renlab.ucsd.edu/rentrac/wiki/ChromaSig

sub init_gibbs_seed {
        # ...            
#	print("score = $score\n");

#	my ($seed, $ave_dist) = tournament_sort($id, $profiles_c,
#						$clusters_arrayref, $filtered_data);
#	my $norm = $sorted_norm[$percentile + $i * $interval]->{norm};
#	my $score = $norm / $ave_dist;

#	if ($best_score < $score) {
	if ((not defined $best_score) ||
	    ($best_score < $score)) {
	    $best_score = $score;
	    $best_seed = $seed;
	}

#	die ("haha");
}