授業資料/対数尤度比による特徴語抽出 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• 授業資料/対数尤度比による特徴語抽出 へ行く。
• 授業資料/対数尤度比による特徴語抽出 の差分を削除

#author("2021-07-02T05:28:27+00:00;2017-01-06T02:00:16+00:00","default:ogiwiki","ogiwiki")
#author("2021-07-02T05:30:58+00:00;2017-01-06T02:00:16+00:00","default:ogiwiki","ogiwiki")
**特徴語抽出 [#n06206b4]
***対数尤度比 Log Likelihood Ratio [#o0791a7e]
***対数尤度比 Log-Likelihood Ratio [#o0791a7e]
-Excel用の関数(VBA)((Excelシートのlog関数とはちがってVBAではlog関数が自然対数（底がe）なのに注意。Excelだとln関数))
 Public Function LogLikelihood(ByVal target As Long, comparison As Long, targetTotal As Long, comparisonTotal As Long) As Variant
     a = target
     b = comparison
     c = targetTotal - a
     d = comparisonTotal - b
        
     If a = 0 Then aLNa = 0 Else aLNa = a * LN(a)
     If b = 0 Then bLNb = 0 Else bLNb = b * LN(b)
     
     LNLikelihood = 2 * (aLNa + bLNb + c * LN(c) + d * LN(d) - (a + b) * LN(a + b) - (a + c) * LN(a + c) - (b + d) * LN(b + d) - (c + d) * LN(c + d) + (a + b + c + d) * LN(a + b + c + d))
     
     If target / targetTotal < comparison / comparisonTotal Then LogLikelihood = LogLikelihood * (-1)
    
 End Function

-[[ダウンロード LLR.xlsm>http://www.ogiso.net/wiki/index.php?plugin=attach&pcmd=open&file=LLR.xlsm&refer=%C5%EC%B5%FE%B3%B0%C2%E72016%2FJapanStudies2]]

--cf.[[『現代日本語書き言葉均衡コーパス』語彙表>https://ccd.ninjal.ac.jp/bccwj/bcc-chu.htm]]