gistfile1.pl

sub chromHMM {
	@lineList = @{$_[0]};
	$alpha = 0.02;
	$K = 5; #分ける状態数
	
	for ($i =0; $i < @lineList; $i++) {
		foreach $list (@attr) { #示唆単語それぞれについて
			$j =1; #ベクトル未追加フラグ
			
			foreach $line (@{$list}) {
				if ($lineList[$i][0] =~ /$line/) {
					push @{$vector[$i]}, 1;
					$j =0;
					last;
				}
			}
			
			if ($j) {
				push @{$vector[$i]}, 0;
			}
		}
	} #各行ベクトル化終了