R 中的 A/B 测试
Lauryn Burleigh
Data Scientist

library(ggplot2)
ggplot(pizza, aes(x = Time,
fill = Topping)) +
geom_histogram() +
facet_grid(Topping~.)

library(pwr)
pwr.2p2n.test(h = 0.40,
sig.level = 0.05,
power = 0.8, n1 = 100)
二项分布两比例差
功效计算
h = 0.4
n1 = 100
n2 = 96.29156
sig.level = 0.05
power = 0.8
alternative = two.sided
NOTE: 不同样本量
pwr.2p2n.test(h = 0.40,
sig.level = 0.05,
power = 0.8, n1 = 110)
二项分布两比例差
功效计算
h = 0.4
n1 = 110
n2 = 88.54092
sig.level = 0.05
power = 0.8
alternative = two.sided
NOTE: 不同样本量
h:秩双列相关 rwilcox.test(Time ~ Topping,
data = Pizza)
Wilcoxon 秩和检验,含
连续性校正
data: Enjoyment by Topping
W = 6051, p-value = 0.01026
alternative hypothesis: 真正位置
偏移不等于 0
效应量
library(effectsize)
rank_biserial(Time ~ Topping,
data = pizza)
r(秩双列相关) | 95% CI
<----------------------------------
0.21 | [0.05, 0.36]
1 - 0.14 = 0.86 二类错误概率
功效分析
library(pwr)
pwr.2p2n.test(h = 0.21, sig.level = 0.01,
n1 = 100, n2 = 100)
二项分布两比例差功效计算
h = 0.21
n1 = 100
n2 = 100
sig.level = 0.01
power = 0.1376818
alternative = two.sided
NOTE: 不同样本量
R 中的 A/B 测试