diff options
author | Philipp Koehn <pkoehn@odin.inf.ed.ac.uk> | 2012-02-16 09:14:56 +0400 |
---|---|---|
committer | Philipp Koehn <pkoehn@odin.inf.ed.ac.uk> | 2012-02-16 09:14:56 +0400 |
commit | 517fda5adaadd04873b2a0bcec040917d5dc0903 (patch) | |
tree | e2220e153630c589777b239c6d9a43cc77cd9691 /scripts/ems/support/analysis.perl | |
parent | 30729621ce0aee2aaf58822470d72d4b7fdd7df9 (diff) |
bug fixes
Diffstat (limited to 'scripts/ems/support/analysis.perl')
-rwxr-xr-x | scripts/ems/support/analysis.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/ems/support/analysis.perl b/scripts/ems/support/analysis.perl index 9a9de9327..7b7f943c7 100755 --- a/scripts/ems/support/analysis.perl +++ b/scripts/ems/support/analysis.perl @@ -358,7 +358,7 @@ sub ttable_coverage { push @DISTRIBUTION, $SCORE[$p_e_given_f_score]; # forward probability } my $entropy = &compute_entropy(@DISTRIBUTION); - print REPORT "%s\t%d\t%.5f\n",$last_in,$TTABLE_COVERED{$last_size}{$last_in},$entropy; + printf REPORT "%s\t%d\t%.5f\n",$last_in,$TTABLE_COVERED{$last_size}{$last_in},$entropy; $TTABLE_ENTROPY{$last_size}{$last_in} = $entropy; close(REPORT); close(TTABLE); |