ExcelのVBAで2×2 以上の分割表に対してカイ二乗検定を実行するソースコードを作成しました
本日は、ExcelのVBAで2×2 以上の分割表に対して独立性のカイ二乗検定を実行するソースコードを作成しました。独立性のカイ二乗検定は２つの変数が独立かどうか検定するための手法です。VBAのソースコードは-----------------------------Sub Macro1()'' Macro1 Macro'' Keyboard Shortcut: Ctrl+r'Dim C(100, 100), A(100), B(100), E(100, 100) As DoubleRow = 3 '行の数col = 3 '列の数'データの入力For i = 1 To Row For j = 1 To col C(i, j) = Cells(i, j) Next jNext i'行の総和For i = 1 To Row A(i) = 0 For j = 1 To col A(i) = A(i) + C(i, j) Next jNext i'列の総和For j = 1 To col B(j) = 0 For i = 1 To Row B(j) = B(j) + C(i, j) Next iNext jN = 0'総和For i = 1 To Row N = N + A(i)Next i'期待度数For i = 1 To Row For j = 1 To col E(i, j) = A(i) * B(j) / N Next jNext iFor i = 1 To Row For j = 1 To col C(i, j) = (C(i, j) - E(i, j)) * (C(i, j) - E(i, j)) / E(i, j) Next jNext i'統計量chi = 0For i = 1 To Row For j = 1 To col chi = chi + C(i, j) Next jNext idf = (Row - 1) * (col - 1) '自由度p_value = WorksheetFunction.ChiSq_Dist(chi, df, True)Cells(Row + 2, 1) = "p値"Cells(Row + 2, 2) = 1 - p_valueEnd Sub-------------です。使い方としてはセルA1を先頭にして分割表を入力します。VBAのRowとcol変数を変更して、分割表の大きさを調整します。マクロを実行すると２行下にp値が出力されます。実行イメージとしてはとなります。Rなどでも実行可能です。Rのソースコードは------------vx=matrix(c(43,20,28,15,31,11,11,12,13),nrow=3,byrow=T)chisq.test(vx)------------です。Excelでマクロを実行するには１．開発タブが無い『ExcelでVBAを使うには（開発タブを表示する）』本日は、ExcelでVBAを使うために開発タブを表示させる方法を解説したい。まず、開発タブが表示されているか確認します。表示されていなければ、「ファイル」…ameblo.jp２．マクロを有効にする『Excelでマクロを有効にするには』本日は、Excelでマクロを有効にする設定変更について解説します。「ファイル」を押します。「オプション」を押します。ポップアップ画面で「トラストセンター…ameblo.jp３．上記ソースコードの使い方『Excelでveq02020のVBAソースコードを使うには』本日は、Excelでveq02020のVBAソースコードを使い方を解説したい。「開発」タブに移動します。「マクロの記録」をクリックします。ポップアップ画…ameblo.jp参考にしてください。弁護士不足 ――日本を支える法的インフラの危機 (ちくま新書)Amazon（アマゾン）弁護士は不足しているようです。どうする。[冷凍]味の素冷凍食品 ギョーザ 12個×5個Amazon（アマゾン）[冷凍] 味の素 しょうがギョーザ 12個Amazon（アマゾン）揚げてあります。レンジでチンするだけ。[冷凍] ニチレイ 衣がサクサク牛肉コロッケ 6個180g×6袋Amazon（アマゾン）[冷凍] ニチレイ やわらかひとくちカツ 6個120g×6袋Amazon（アマゾン）[冷凍] ニチレイ 極上ヒレかつ 4個180g×4袋Amazon（アマゾン）よろしくお願いいたします。以上です。
