set.seed(42)
n_large <- 5000; n_small <- 50
df_large <- tibble(group = rep(c("A","B"), each=n_large),
y = c(rnorm(n_large,0,1), rnorm(n_large,0.05,1)))
df_small <- tibble(group = rep(c("A","B"), each=n_small),
y = c(rnorm(n_small,0,1), rnorm(n_small,0.8,1)))
p_large <- t.test(y~group, data=df_large)$p.value
p_small <- t.test(y~group, data=df_small)$p.value
tibble::tibble(
Dataset = c("n=5000/group, d=0.05", "n=50/group, d=0.80"),
`p-value` = round(c(p_large, p_small), 4),
`Effect size (d)` = c(0.05, 0.80),
`Clinical importance` = c("Negligible", "Large")
)