Slide 30
Slide 30 text
R ( D)(1/2) — R
<- c(4.6, 5.6, 3.2, 3.2, 3.7, 4.0, 5.0, 4.6)
<- c(4.6, 4.9, 7.1, 6.0, 5.2, 3.9, 5.3, 5.8)
#
combined_samples <- c( , )
sample_group <- c(rep(" ", length( )), rep(" ", length( )))
#
ranks <- rank(combined_samples)
#
df <- data.frame(value = combined_samples, group = sample_group, rank = ranks)
#
ra <- sum(df[df$group == " ", "rank"])
rb <- sum(df[df$group == " ", "rank"])
2024 1-2 — 2024-12-02 – p.30/36