perlでLDA(Latent Dirichlet Allocation)を書いてみた - EchizenBlog-Zwei感覚を掴むためにperlでLDAを書いてみた。130行くらい。あくまで練習なので効率のよさとかは考えてない。とりあえず動いたよ的な。実装はBlei論文に書かれている変分ベイズ版を使った。 Latent Dirichlet Allocation D.M.Blei et al, 2003 なおディガンマ関数の実装は持橋さんのものを参考にさせていただいた。感謝。(問題ありそうだったら消します。) http://chasen.org/~daiti-m/dist/lda/ #!/usr/lcoa/bin/perl use strict; use warnings; use Data::Dumper; my $filename = shift @ARGV; my $v = shift @ARGV; my $k = shift @ARGV; my $t = shift @ARGV; my @beta;
