Tests A/B en R
Lauryn Burleigh
Data Scientist


Ignorer les groupes
Chaque groupe
r (obtenu avec cor())sig.level auquel on rejette l'hypothèse nullelibrary(pwr)
pwr.r.test(r = 0.3, power = 0.80,
sig.level = 0.05)
approximate correlation power
calculation (arctangh transformation)
n = 84.07364
r = 0.3
sig.level = 0.05
power = 0.8
alternative = two.sided
ggplot(pizza, aes(x = enjoyment,
y = time)) +
geom_point()

ggplot(pizza, aes(x = enjoyment,
y = time)) +
geom_point()

shapiro.test(pizza$time)
Shapiro-Wilk normality test
data: pizza$time
W = 0.98686, p-value = 0.4282
shapiro.test(pizza$enjoyment)
Shapiro-Wilk normality test
data: pizza$enjoyment
W = 0.98916, p-value = 0.5971
cor.test(~ time + enjoyment,
data = pizza,
method = "pearson")
Proportion de variance : cor^2
0.30^2
[1] 0.09
Corrélation produit-moment de Pearson
données : time et enjoyment
t = 22.304, df = 88, p-value = 0.0218
hypothèse alternative : la corrélation vraie
n'est pas égale à 0
intervalle de confiance à 95 % :
0.8833166 0.9479256
estimations d'échantillon :
cor
0.3021878
cor.test(~ time + enjoyment,
data = pizza,
subset =
(Topping == "Cheese"),
method = "pearson")
Corrélation produit-moment de Pearson
données : Time et Enjoy
t = 11.121, df = 98, p-value < 2.2e-16
hypothèse alternative : la corrélation vraie
n'est pas égale à 0
intervalle de confiance à 95 % :
0.6451710 0.8226595
estimations d'échantillon :
cor
0.746935
Pearson en ignorant les groupes :
Corrélation produit-moment de Pearson
données : time et enjoyment
t = 22.304, df = 88, p-value = 0.0218
hypothèse alternative :
la corrélation n'est pas égale à 0
intervalle de confiance à 95 % :
0.8833166 0.9479256
estimations d'échantillon :
cor
0.3021878
library(pwr)
pwr.r.test(r = 0.302, n = 100,
sig.level = 0.022)
approximate correlation power
calculation (arctangh transformation)
n = 100
r = 0.302
sig.level = 0.022
power = 0.7853514
alternative = two.sided
Tests A/B en R