АХ
Size: a a a
АХ
АХ
АХ
R
a
ИЭ
AM
ИЭ
$<-.data.frame
(*tmp*
, v_p, value = list(statistic = c(W = 37538), :PD
library(data.table)
dt = data.table(
v = rnorm(100),
site = sample(c('site1', 'site2', 'site3'), 100, T)
)
v_to_compare_with = c(0, 0, 0, 1, 0, 1, 0)
dt[, .(p_value = wilcox.test(v_to_compare_with, v)$p.value), by = site]
PD
dt %>%
group_by(site) %>%
summarise(p_value = wilcox.test(v_to_compare_with, v)$p.value)
ИЭ
dt %>%
group_by(site) %>%
summarise(p_value = wilcox.test(v_to_compare_with, v)$p.value)
PD
ИП
ИП
Ю
MM
Ю
G