ITパスポートの正解選択肢はランダムに決められているのか、Pythonでカイ2乗検定して確かめる part2

## この記事の内容

ITパスポートの試験問題はア〜エの4択問題ですが、それって偏りがあったら良くないですよね。  
じゃあ本当に偏ってないかどうか、統計的に確かめましょうという話。  
同じ選択肢が連続で正解になることの調整がされているか、という観点で確認してみます。

前回は[こちら](https://qiita.com/canid_56/private/685c2627c89234438e23)

## 仮説 : ア〜エの選択肢の出現回数はランダムだと言えるのか？

選択問題を解いていて同じ選択肢が連続すると、ちょっと不安になりますよね。（アが3回連続になってる！みたいな感じ）  
それって出題側からしても同じだと思うんです。なるべく連続しないようにしようとか、逆にその真理を逆手にとって連続させようとか。  
でもそんな考えでバイアスが掛かった順番にするのは公正ではないですね。（ここではそう思ってください）  
そこで、**ITパスポート試験で同じ選択肢が連続で正解になる回数が、ランダムな系列と同様の分布になっているのか**調べていきます。

## ランダムな系列の連続出現回数の分布

選択が完全にランダムな場合、$m$個の選択肢の中から同じ選択肢が連続で$n$回選ばれる確率$p(m,n)$は次のように書けます。  
二項分布と似ていますがちょっと違いますね。

$$
p(m,n) = \frac{1}{m^{n-1}}(1-\frac{1}{m})
$$

まず最初の1回目は何が出てもいいですが、次からは$n-1$回同じ選択肢が選ばれ続けるので$\frac{1}{m^{n-1}}$が出てきます。$n=1$の時はこの部分は$1$になります。  
$n$回連続で同じ選択肢が出た次の選択では、逆に今までと違う選択肢が選ばれなければいけないので余事象の確率$(1-\frac{1}{m})$が出てきます。

この確率分布はおそらくPythonで実装されていなそうなので、自分で定義しておきます。

```python
import numpy as np
m = 4
dist_func = np.frompyfunc(lambda n,m: 1/(m**(n-1)) * (1-1/m), 2, 1)
```

確率分布は、指数関数を左右逆にしたような形です。  
この確率分布とデータを比べる事で、正解選択肢の出現順に作為がないのか確かめます。

```python
import matplotlib.pyplot as plt
plt.rcParams['font.sans-serif'] = ['Hiragino Maru Gothic Pro', 'Yu Gothic']
%matplotlib inline

n_list = np.arange(1,11)
m = 4
prob = dist_func(n_list,m)
plt.bar(n_list, prob)
plt.show()
```

![prob.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/315348/01da82dd-9cd7-21f1-e41d-81ae70caf772.png)



## データの変換

前回と同様、ITパスポートの過去問の正答を、[こちらの記事](https://qiita.com/canid_56/items/e3676a53340154cba817)の手順で構造化したデータを使います。  
今回はア〜エの文字ではなく、数値化したデータを使います。

```python
df_num.head()
```

<table border="1" class="dataframe">
  <thead>
    <tr style="text-align: right;">
      <th></th>
      <th>令和4年度分</th>
      <th>令和3年度分</th>
      <th>令和2年度 10月分</th>
      <th>令和元年度 秋期分</th>
      <th>平成31年度 春期分</th>
      <th>平成30年度 秋期分</th>
      <th>平成30年度 春期分</th>
      <th>平成29年度 秋期分</th>
      <th>平成29年度 春期分</th>
      <th>平成28年度 秋期分</th>
      <th>平成28年度 春期分</th>
      <th>平成27年度 秋期分</th>
      <th>平成27年度 春期分</th>
      <th>平成26年度 秋期分</th>
      <th>平成26年度 春期分</th>
      <th>平成25年度 秋期分</th>
      <th>平成25年度 春期分</th>
      <th>平成24年度 秋期分</th>
      <th>平成24年度 春期分</th>
      <th>平成23年度 秋期分</th>
      <th>平成23年度 特別分</th>
      <th>平成22年度 秋期分</th>
      <th>平成22年度 春期分</th>
      <th>平成21年度 春期分</th>
    </tr>
  </thead>
  <tbody>
    <tr>
      <th>0</th>
      <td>3</td>
      <td>2</td>
      <td>2</td>
      <td>3</td>
      <td>3</td>
      <td>0</td>
      <td>3</td>
      <td>2</td>
      <td>0</td>
      <td>3</td>
      <td>0</td>
      <td>0</td>
      <td>2</td>
      <td>2</td>
      <td>0</td>
      <td>3</td>
      <td>0</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>3</td>
      <td>0</td>
      <td>2</td>
    </tr>
    <tr>
      <th>1</th>
      <td>1</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>2</td>
      <td>2</td>
      <td>2</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>2</td>
      <td>3</td>
      <td>0</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>2</td>
    </tr>
    <tr>
      <th>2</th>
      <td>2</td>
      <td>2</td>
      <td>1</td>
      <td>2</td>
      <td>0</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>2</td>
      <td>3</td>
      <td>3</td>
      <td>3</td>
      <td>0</td>
      <td>3</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>3</td>
      <td>1</td>
      <td>1</td>
      <td>3</td>
      <td>1</td>
    </tr>
    <tr>
      <th>3</th>
      <td>0</td>
      <td>0</td>
      <td>2</td>
      <td>3</td>
      <td>1</td>
      <td>2</td>
      <td>0</td>
      <td>1</td>
      <td>1</td>
      <td>3</td>
      <td>2</td>
      <td>0</td>
      <td>2</td>
      <td>1</td>
      <td>1</td>
      <td>2</td>
      <td>0</td>
      <td>1</td>
      <td>0</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>2</td>
      <td>0</td>
    </tr>
    <tr>
      <th>4</th>
      <td>1</td>
      <td>2</td>
      <td>1</td>
      <td>3</td>
      <td>0</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>1</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>2</td>
      <td>3</td>
      <td>2</td>
      <td>3</td>
      <td>1</td>
      <td>2</td>
      <td>1</td>
      <td>2</td>
      <td>2</td>
      <td>1</td>
      <td>1</td>
    </tr>
  </tbody>
</table>

ここから正解選択肢が連続した回数を数えていきますが、結構複雑な変換が必要です。  
まず令和4年度分の原系列を見てみます。8→9のところで同じ選択肢が連続していますね。

```python
df_num.head(10)["令和4年度分"]
```

```
0    3
1    1
2    2
3    0
4    1
5    2
6    1
7    3
8    0
9    0
Name: 令和4年度分, dtype: int64
```

この連続を見つけるために、以下の手順で変換していきます。  

1. `diff`で前後の値の差分に変換
1. `cumsum`で値が変化した回数を足し上げる
    1. ここで、値の変化がない（同じ選択肢が連続してる）時は同じ値が連続した回数分並ぶ
1. `unstack`でグループ処理しやすいように縦持ちにする

ここまですると、次のように同じ選択肢が連続した部分(８→9のところ)で同じ数が並ぶようになります。

```python
df_change_cumsum = (df_num.diff() != 0).cumsum().unstack()
df_change_cumsum.name = "value"
df_change_cumsum = df_change_cumsum.reset_index()
df_change_cumsum.head(10)
``` 

<table border="1" class="dataframe">
  <thead>
    <tr style="text-align: right;">
      <th></th>
      <th>level_0</th>
      <th>level_1</th>
      <th>value</th>
    </tr>
  </thead>
  <tbody>
    <tr>
      <th>0</th>
      <td>令和4年度分</td>
      <td>0</td>
      <td>1</td>
    </tr>
    <tr>
      <th>1</th>
      <td>令和4年度分</td>
      <td>1</td>
      <td>2</td>
    </tr>
    <tr>
      <th>2</th>
      <td>令和4年度分</td>
      <td>2</td>
      <td>3</td>
    </tr>
    <tr>
      <th>3</th>
      <td>令和4年度分</td>
      <td>3</td>
      <td>4</td>
    </tr>
    <tr>
      <th>4</th>
      <td>令和4年度分</td>
      <td>4</td>
      <td>5</td>
    </tr>
    <tr>
      <th>5</th>
      <td>令和4年度分</td>
      <td>5</td>
      <td>6</td>
    </tr>
    <tr>
      <th>6</th>
      <td>令和4年度分</td>
      <td>6</td>
      <td>7</td>
    </tr>
    <tr>
      <th>7</th>
      <td>令和4年度分</td>
      <td>7</td>
      <td>8</td>
    </tr>
    <tr>
      <th>8</th>
      <td>令和4年度分</td>
      <td>8</td>
      <td>9</td>
    </tr>
    <tr>
      <th>9</th>
      <td>令和4年度分</td>
      <td>9</td>
      <td>9</td>
    </tr>
  </tbody>
</table>

続いて次の手順で連続回数を数え上げます。

1. `groupby`で試験毎の集計を行う
1. `value_counts`で各値ごとの出現回数(=同じ選択肢が連続した回数)を数え上げる
1. 再び`value_counts`で「同じ選択肢が連続した回数」の回数を数え上げる

これで、同じ選択肢が連続した回数の頻度がわかります。

```python
cont = df_change_cumsum.groupby("level_0")["value"].value_counts(sort=False)
cont.name = "count"
cont = cont.reset_index("level_0").value_counts().unstack(fill_value=0).loc[df.columns]
cont
```

<table border="1" class="dataframe">
  <thead>
    <tr style="text-align: right;">
      <th>count</th>
      <th>1</th>
      <th>2</th>
      <th>3</th>
      <th>4</th>
      <th>5</th>
      <th>6</th>
      <th>7</th>
    </tr>
  </thead>
  <tbody>
    <tr>
      <th>令和4年度分</th>
      <td>50</td>
      <td>14</td>
      <td>3</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>令和3年度分</th>
      <td>57</td>
      <td>15</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>令和2年度 10月分</th>
      <td>51</td>
      <td>13</td>
      <td>5</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>令和元年度 秋期分</th>
      <td>58</td>
      <td>17</td>
      <td>0</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成31年度 春期分</th>
      <td>58</td>
      <td>17</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成30年度 秋期分</th>
      <td>44</td>
      <td>10</td>
      <td>8</td>
      <td>3</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成30年度 春期分</th>
      <td>62</td>
      <td>11</td>
      <td>2</td>
      <td>0</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成29年度 秋期分</th>
      <td>48</td>
      <td>15</td>
      <td>1</td>
      <td>1</td>
      <td>3</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成29年度 春期分</th>
      <td>58</td>
      <td>7</td>
      <td>8</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成28年度 秋期分</th>
      <td>59</td>
      <td>13</td>
      <td>5</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成28年度 春期分</th>
      <td>60</td>
      <td>15</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成27年度 秋期分</th>
      <td>56</td>
      <td>12</td>
      <td>2</td>
      <td>1</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成27年度 春期分</th>
      <td>54</td>
      <td>10</td>
      <td>6</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成26年度 秋期分</th>
      <td>52</td>
      <td>18</td>
      <td>4</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成26年度 春期分</th>
      <td>48</td>
      <td>16</td>
      <td>3</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>1</td>
    </tr>
    <tr>
      <th>平成25年度 秋期分</th>
      <td>57</td>
      <td>14</td>
      <td>5</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成25年度 春期分</th>
      <td>69</td>
      <td>11</td>
      <td>3</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成24年度 秋期分</th>
      <td>60</td>
      <td>15</td>
      <td>2</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成24年度 春期分</th>
      <td>48</td>
      <td>17</td>
      <td>6</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成23年度 秋期分</th>
      <td>53</td>
      <td>18</td>
      <td>2</td>
      <td>0</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成23年度 特別分</th>
      <td>48</td>
      <td>19</td>
      <td>2</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成22年度 秋期分</th>
      <td>60</td>
      <td>13</td>
      <td>2</td>
      <td>2</td>
      <td>0</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成22年度 春期分</th>
      <td>56</td>
      <td>18</td>
      <td>1</td>
      <td>0</td>
      <td>1</td>
      <td>0</td>
      <td>0</td>
    </tr>
    <tr>
      <th>平成21年度 春期分</th>
      <td>57</td>
      <td>14</td>
      <td>3</td>
      <td>0</td>
      <td>0</td>
      <td>1</td>
      <td>0</td>
    </tr>
  </tbody>
</table>


例えば令和4年なら、連続回数が1回(=前後が違う選択肢)の箇所が50、2連続で同じ選択肢の箇所が14、という風になっています。  
分布の形状を見ると、確かに予想していた分布に近いですね。

```python
cont.T["令和4年度分"].plot.bar()
plt.show()
```

![r4_cont.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/315348/eeaa8c25-681a-5578-16a8-b9c09983ee57.png)


## カイ2乗検定の実行


あとは前回と同様、カイ2乗検定でp値を取り出せばいいのですが、2点問題があります。**$n$の定義域**と**試行回数**です。  

原理上、$n$は$\infty$まで取り得ますが、ITパスポートの問題は100問なので、$n$の定義域は$1\le n \le 100$です。ただ、そうすると確率の積分が1にならないので、上で定義した確率の式をそのまま使えません。  
さらに、カイ2乗検定をするためには比較対象分布の頻度を作る必要がありますが、問題数が100問という制約があるため試行回数が毎回異なってしまうのです。（100問同じ選択肢が正解なら試行数は1回、100問全て連続しない選択肢が正解なら試行数は100回）  

ここら辺を厳密にしすぎるとかなり複雑な式になりそうなので、今回は近似的にちょうどいいところで$n$を打ち切るようにします。あまり小さい値で打ち切ってしまうと確率の積分が1にならないと怒られるので、**$1\le n \le 15$くらいで打ち切ってみます**。$1\le n \le 100$にしても良いのですが、0しか入っていないデータを大量に入れると識別性が不当になりそうなので、小さめの値にしてみました。15という値はエイヤで決めました。  
また、試行回数については**実際にデータとして得られた頻度の合計を試行回数として逆算する**ことにします。こうすると期待頻度から計算した問題数が100問にならない事がありますが、今回は目を瞑ります。  
この辺について、うまいやり方があるかも知れないですが思いつきませんでした。コメントでアイデア頂けると嬉しいです。

ということで、この条件の元でカイ2乗検定を行ってp値を取得する関数を作り、`apply`で各行に適用してp値の一覧を取得します。

```python
def chi_test(x,dist_func=dist_func, m=4, n_cutoff=15):
    f_obs = np.append(x, np.zeros(n_cutoff - len(x)))
    f_exp = x.sum() * dist_func(np.arange(n_cutoff) + 1, m)
    res = chisquare(f_obs, f_exp)
    return res.pvalue
```

```python
cont.apply(lambda x:chi_test(x, n_cutoff=15),axis=1)
```

```
令和4年度分        9.851389e-01
令和3年度分        1.000000e+00
令和2年度 10月分    9.992976e-01
令和元年度 秋期分     9.734678e-01
平成31年度 春期分    9.670341e-01
平成30年度 秋期分    3.296057e-01
平成30年度 春期分    2.678962e-01
平成29年度 秋期分    1.446884e-04
平成29年度 春期分    7.803837e-01
平成28年度 秋期分    9.999375e-01
平成28年度 春期分    9.999980e-01
平成27年度 秋期分    3.232313e-01
平成27年度 春期分    9.882266e-01
平成26年度 秋期分    9.995129e-01
平成26年度 春期分    5.413938e-11
平成25年度 秋期分    9.999606e-01
平成25年度 春期分    9.975446e-01
平成24年度 秋期分    9.999980e-01
平成24年度 春期分    9.884849e-01
平成23年度 秋期分    9.728506e-01
平成23年度 特別分    9.795322e-01
平成22年度 秋期分    9.996105e-01
平成22年度 春期分    9.514351e-01
平成21年度 春期分    2.323815e-01
dtype: float64
```

## 結論

H26年春とH29年秋が、p値がかなり小さいですね。  
H26春は7回連続が出てきている点、H29秋は5回連続が3箇所もあった点がその原因だと思います。  
第一種の過誤の可能性はありますが、これだけ小さいp値が24回中2回も現れるのはちょっと怪しい気もしますね。  

あとは、ランダムだと思って良さそうなんですが、90%代の大きなp値の試験が多いので逆に不自然ですね。  
もしかすると同じ選択肢が正解にならないような作為が行われているかもしれません。  
(@WolfMoon さんの前回の記事の指摘からヒントを得ました。ありがとうございます。)