![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 5 Регистрация: 10.02.2018 Пользователь №: 30973 ![]() |
Добрый день всем участникам форума! Буду очень благодарна, если кто-нибудь поможет мне с решением типовой практической задачи. Имеется выборка из 24 пациентов. Она будет разделена на 2 группы по 12 человек. 12 человек из первой группы в первом периоде исследования будут получать лекарственное средство T, во втором периоде - лекарственное средство R. 12 человек из второй группы в первом периоде исследования будут получать лекарственное средство R, во втором периоде - лекарственное средство T. Мне необходимо с использованием программы Statistica (у меня стоит пробная версия 13) случайным образом распределить 24 человека на 2 группы по 12 (последовательности лечения TR и RT). Подскажите, пожалуйста, как это делается.
|
|
![]() |
![]() |
![]() |
![]()
Сообщение
#2
|
|
Группа: Пользователи Сообщений: 1325 Регистрация: 27.11.2007 Пользователь №: 4573 ![]() |
Задвоение таки да, проблема, не позволяющая использовать 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" |
|
![]() |
![]() |
![]() ![]() |