R 統計推論基礎
Jo Hardin
Instructor
從虛無母群生成統計量的分配，有助判斷觀察到的資料是否與虛無假設不一致
原始資料
$\hat{p}_\text{east} = 28/(28 + 6) = 0.82$
$\hat{p}_\text{west} = 19/(19 + 7) = 0.73$
第 1 次洗牌，與原始相同
第 2 次洗牌
第 3 次洗牌
第 4 次洗牌
第 5 次洗牌
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
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
Preparing Video For Download...
