\n\n";
print "\n";
print "BENCHMARK RESULTS : | \n";
print "\n",
" | \n",
" | \n",
" ...Membrane helices versus not membrane helix... | \n",
" | \n",
" ...Inside/outside topology... | \n",
" | \n",
" \n";
print "\n",
" Method | \n",
" | \n",
" per sequence | \n",
" | \n",
" per segment | \n",
" | \n",
" per helix end | \n",
" | \n",
" per residue | \n",
" | \n",
" per sequence | \n",
" | \n",
" per segment | \n",
" | \n",
" per residue | \n",
" | \n",
" \n";
print "\n";
print " | \n";
print " | \n";
print " Qok % | \n";
print " | \n";
print " (sensitivity) Qhtm %obs | \n";
print " (specificity) Qhtm %prd | \n";
print " | \n";
print " AvHb diff in residues | \n";
print " QHb %obs | \n";
print " Gauss QHb %obs | \n";
print " | \n";
print " Q2 % | \n";
print " htm MCC (-1..0..1) | \n";
print " Q2T %obs | \n";
print " Q2T %prd | \n";
print " Q2N %obs | \n";
print " Q2N %prd | \n";
print " | \n";
print " Qok3 % | \n";
print " Nterm % | \n";
print " | \n";
print " ioSeg Q2 % | \n";
print " Qiom %obs | \n";
print " Qio %obs | \n";
print " | \n";
print " Q3 % | \n";
print " ioRes Q2 % | \n";
print " io MCC (-1..0..1) | \n";
print " | \n";
print " \n";
for ( my $i = 0; $i < @output_method; $i++ ) {
my $method = $output_method[$i];
my $method_name = $data->{'method_long_name'}->{$method};
my $qok = $output_qok[$i];
my $qhtm_obs = $output_qhtm_obs[$i];
my $qhtm_prd = $output_qhtm_prd[$i];
my $avhe_diff = $output_avhe_diff[$i];
my $qhe_obs = $output_qhe_obs[$i];
my $qhe_prd = $output_qhe_prd[$i];
my $qnhe_obs = $output_qnhe_obs[$i];
my $qnhe_prd = $output_qnhe_prd[$i];
my $q2 = $output_q2[$i];
my $htm_mcc = $output_htm_mcc[$i];
my $q2t_obs = $output_q2t_obs[$i];
my $q2t_prd = $output_q2t_prd[$i];
my $q2n_obs = $output_q2n_obs[$i];
my $q2n_prd = $output_q2n_prd[$i];
my $qok3 = $output_qok3[$i];
my $nterm = $output_nterm[$i];
my $q2_ioseg = $output_q2_ioseg[$i];
my $qiom_obs = $output_qiom_obs[$i];
my $qiom_prd = $output_qiom_prd[$i];
my $qio_obs = $output_qio_obs[$i];
my $qio_prd = $output_qio_prd[$i];
my $q3 = $output_q3[$i];
my $q2_iores = $output_q2_iores[$i];
my $io_mcc = $output_io_mcc[$i];
my $b_flag = "";
my $b_flag2 = "";
print " \n";
print " $b_flag$method_name$b_flag2 | \n";
print " | \n";
print " $b_flag$qok$b_flag2 | \n";
print " | \n";
print " $b_flag$qhtm_obs$b_flag2 | \n";
print " $b_flag$qhtm_prd$b_flag2 | \n";
print " | \n";
print " $b_flag$avhe_diff$b_flag2 | \n";
print " $b_flag$qhe_obs$b_flag2 | \n";
print " $b_flag$qnhe_obs$b_flag2 | \n";
print " | \n";
print " $b_flag$q2$b_flag2 | \n";
print " $b_flag$htm_mcc$b_flag2 | \n";
print " $b_flag$q2t_obs$b_flag2 | \n";
print " $b_flag$q2t_prd$b_flag2 | \n";
print " $b_flag$q2n_obs$b_flag2 | \n";
print " $b_flag$q2n_prd$b_flag2 | \n";
print " | \n";
print " $b_flag$qok3$b_flag2 | \n";
print " $b_flag$nterm$b_flag2 | \n";
print " | \n";
print " $b_flag$q2_ioseg$b_flag2 | \n";
print " $b_flag$qiom_obs$b_flag2 | \n";
print " $b_flag$qio_obs$b_flag2 | \n";
print " | \n";
print " $b_flag$q3$b_flag2 | \n";
print " $b_flag$q2_iores$b_flag2 | \n";
print " $b_flag$io_mcc$b_flag2 | \n";
print " | \n";
print " \n";
}
print " | \n";
if ($global->{'kingdom'}->{'beta_barrel'} ne '') {
print "Beta-barrel membrane segments are not counted as being membrane helical segments. The inside/outside topology calculations do not include any beta-barrel membrane proteins or soluble proteins. | \n";
} elsif ($global->{'kingdom'}->{'soluble'} ne '') {
print "The inside/outside topology calculations do not include any beta-barrel membrane proteins or soluble proteins. | \n";
print " | \n";
}
print " \n";
print " | \n
\n