無作為化した分布

Rによる推測の基礎

Jo Hardin

Instructor

推論の考え方

ch1_2_v2_infer.002.png

Rによる推測の基礎

推論の考え方

ch1_2_v2_infer.003.png

Rによる推測の基礎

推論の考え方

ch1_2_v2_infer.004.png

Rによる推測の基礎

推論の考え方

ch1_2_v2_infer.005.png

Rによる推測の基礎

推論の考え方

ch1_2_v2_infer.006.png

Rによる推測の基礎

推論の考え方

Rによる推測の基礎

帰無分布を理解する

 

帰無母集団から統計量の分布を生成すると、観測データが帰無仮説と矛盾するかの判断材料になります

Rによる推測の基礎

帰無分布を理解する

元データ

Location Cola Orange
East 28 6
West 19 7

 

$\hat{p}_\text{east} = 28/(28 + 6) = 0.82$

$\hat{p}_\text{west} = 19/(19 + 7) = 0.73$

Rによる推測の基礎

帰無分布を理解する

1回目のシャッフル(元と同じ)

Location Cola Orange
East 28 6
West 19 7

ch1_2_v2_infer.017.png

Rによる推測の基礎

帰無分布を理解する

2回目のシャッフル

Location Cola Orange
East 27 7
West 20 6

ch1_2_v2_infer.019.png

Rによる推測の基礎

帰無分布を理解する

3回目のシャッフル

Location Cola Orange
East 28 8
West 21 5

ch1_2_v2_infer.020.png

Rによる推測の基礎

帰無分布を理解する

4回目のシャッフル

Location Cola Orange
East 25 9
West 22 4

ch1_2_v2_infer.021.png

Rによる推測の基礎

帰無分布を理解する

5回目のシャッフル

Location Cola Orange
East 29 5
West 18 8

ch1_2_v2_infer.022.png

Rによる推測の基礎

帰無分布を理解する

5回目のシャッフル

Location Cola Orange
East 29 5
West 18 8

ch1_2_v2_infer.023.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.024.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.025.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.026.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.027.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.028.png

Rによる推測の基礎

帰無分布を理解する

ch1_2_v2_infer.029.png

Rによる推測の基礎

ランダムな並べ替え1回

soda %>%
group_by(location) %>%
summarize(prop_cola = 
    mean(drink == "cola")) %>%
summarize(diff(prop_cola))
# A tibble: 1 x 1
  `diff(prop_cola)`
              <dbl>
1        -0.09276018
library(infer)
soda %>% specify(drink ~ location,
                success = "cola") %>%
hypothesize(null = "independence") %>%
generate(reps = 1, type = "permute") %>%
calculate(stat = "diff in props", 
            order = c("west","east"))
# A tibble: 1 x 2
  replicate        stat
      <int>        <dbl>
1        1    -0.02488688
Rによる推測の基礎

多数のランダムな並べ替え

soda %>%
  specify(drink ~ location, success = "cola") %>%
  hypothesize(null = "independence") %>%
  generate(reps = 5, type = "permute") %>%
  calculate(stat = "diff in props", order = c("west", "east"))
# A tibble: 5 x 2
  replicate        stat
      <int>       <dbl>
1         1  0.04298643
2         2 -0.09276018
3         3  0.11085973
4         4  0.17873303
5         5 -0.16063348
Rによる推測の基礎

ランダム分布

ch1_2_v2_infer.047.png

Rによる推測の基礎

¡Vamos a practicar!

Rによる推測の基礎

Preparing Video For Download...