diff options
author | Chris Dyer <cdyer@allegro.clab.cs.cmu.edu> | 2013-02-11 21:14:10 -0500 |
---|---|---|
committer | Chris Dyer <cdyer@allegro.clab.cs.cmu.edu> | 2013-02-11 21:14:10 -0500 |
commit | ec3d8418c9e6fe2a7c5f1f3fafdd28e3658c3905 (patch) | |
tree | e7757f04fc5f371c17680f7b5c5e7995e8f5fd9c /training/crf/baum_welch_example/random_init.pl | |
parent | 42965462daaa4598cd438147fcfb1794cfa780de (diff) |
Baum Welch training for HMMs
Diffstat (limited to 'training/crf/baum_welch_example/random_init.pl')
-rwxr-xr-x | training/crf/baum_welch_example/random_init.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/training/crf/baum_welch_example/random_init.pl b/training/crf/baum_welch_example/random_init.pl new file mode 100755 index 00000000..98467ed1 --- /dev/null +++ b/training/crf/baum_welch_example/random_init.pl @@ -0,0 +1,9 @@ +#!/usr/bin/perl -w +while(<>) { + chomp; + my ($a,$b,@d) =split /\s+/; + die "Bad input" if scalar @d > 0; + $r = -rand() * rand() - 0.5; + $r = 0 if $a =~ /^Uni:/; + print "$a $r\n"; +} |