Задвоение таки да, проблема, не позволяющая использовать on line ресурсы типа:
https://www.randomizer.org/https://www.random.org/integers/Программа Statistica из списка 24 объектов отбирает 12 без задвоений, но после этого нужно руками проставлять этим номерам первую группу, а не попавшим в этот список - вторую группу, не удобно, а если групп 3 все еще труднее. Вариант , описанный nokh также без задвоений, но с элементами ручной работы.
А потому, стоит согласиться с ogurtsov, лучше использовать специальные пакеты, тем более, что редакции некоторых научных журналов задают вопросы о методах радомизации, а в специальных пакетах их реализовано очень много, в randomizeR - 15. Я выполнила RAR (Random Allocation Rule) для этой задачке.
https://cran.r-project.org/web/packages/ran...izeR/index.html> library (randomizeR)
> N <-24
> K <-2
> groups <-c("A", "B")
> rarPar(N, K, groups=groups)
Object of class "rarPar"
design = RAR
N = 24
groups = A B
> groups <-c("A", "B")
> par <-rarPar(N ,K, groups=groups)
> R <-genSeq(par)
> getRandList®
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,] "A" "A" "B" "A" "A" "B" "A" "B" "A" "A" "B" "A" "B" "B"
[,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24]
[1,] "A" "B" "B" "A" "B" "A" "B" "B" "A" "B"
> saveRand(R, file="D:/R/mylist.doc.csv")
Или просто отчет, там понятней, какому номеру какое лечение.
> This document was generated on Вт фев 13 2018 at 0:03:20 .
The randomizeR package of version 1.4 was used for generating the randomization list with the R version 3.4.3 (2017-11-30) .
Randomization Method: RAR
seed: 967519
N: 24
K: 2
ratio: 1, 1
groups: A, B
Legend:
N := number of included patients
K := number of treatment groups
ratio := allocation ratio of the trial
groups := names for the investigated groups
For specific randomization parameters see the help of the randomizeR package.
"Allocation" "Treatment"
1 "A"
2 "A"
3 "B"
4 "A"
5 "A"
6 "B"
7 "A"
8 "B"
9 "A"
10 "A"
11 "B"
12 "A"
13 "B"
14 "B"
15 "A"
16 "B"
17 "B"
18 "A"
19 "B"
20 "A"
21 "B"
22 "B"
23 "A"
24 "B"