Здравствуйте, гость ( Вход | Регистрация )
11.02.2018 - 14:41
Сообщение
#1
|
|
|
Группа: Пользователи Сообщений: 5 Регистрация: 10.02.2018 Пользователь №: 30973 |
Добрый день всем участникам форума! Буду очень благодарна, если кто-нибудь поможет мне с решением типовой практической задачи. Имеется выборка из 24 пациентов. Она будет разделена на 2 группы по 12 человек. 12 человек из первой группы в первом периоде исследования будут получать лекарственное средство T, во втором периоде - лекарственное средство R. 12 человек из второй группы в первом периоде исследования будут получать лекарственное средство R, во втором периоде - лекарственное средство T. Мне необходимо с использованием программы Statistica (у меня стоит пробная версия 13) случайным образом распределить 24 человека на 2 группы по 12 (последовательности лечения TR и RT). Подскажите, пожалуйста, как это делается.
|
|
|
![]() |
![]() |
![]() |
12.02.2018 - 15:07
Сообщение
#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" |
|
|
![]() |
![]() |
ЛенвГо ошко Рандомизация в программе Statistica 11.02.2018 - 14:41
nokh У меня есть заготовка с ответом из выходящего в эт... 11.02.2018 - 16:02
ЛенвГо ошко Цитата(nokh @ 11.02.2018 - 16:02) У ... 11.02.2018 - 16:21
nokh Цитата(ЛенвГо ошко @ 11.02.2018 - 18... 12.02.2018 - 04:44
100$ Цитата(ЛенвГо ошко @ 11.02.2018 - 14... 11.02.2018 - 16:34
ogurtsov Цитата(100$ @ 11.02.2018 - 17:3... 11.02.2018 - 22:06
100$ Цитата(ogurtsov @ 11.02.2018 - 22:06... 12.02.2018 - 00:08
DrgLena Вряд ли рандомизация 24 больных может гарантироват... 12.02.2018 - 01:19
passant Цитата(nokh @ 11.02.2018 - 16:02) У ... 12.02.2018 - 16:39
100$ Del 12.02.2018 - 16:55
nokh Цитата(passant @ 12.02.2018 - 18:39)... 12.02.2018 - 23:13
passant Цитата(100$ @ 12.02.2018 - 16:5... 12.02.2018 - 17:11
100$ Del 12.02.2018 - 23:09
DrgLena http://forum.disser.ru/?showtopic=1215 плав о блоч... 13.02.2018 - 07:46
ЛенвГо ошко Добрый день. Всем спасибо за мнение по вопросу. По... 13.02.2018 - 15:20
DoctorStat Цитата(ЛенвГо ошко @ 13.02.2018 - 15... 13.02.2018 - 20:23
DrgLena В программе Statistica тоже есть функция random sa... 13.02.2018 - 23:16
ЛенвГо ошко Цитата(DrgLena @ 13.02.2018 - 23:16)... 17.02.2018 - 14:20
DrgLena Для nokh и других, которые хотят учиться, а не отп... 14.02.2018 - 03:08
100$ Del 14.02.2018 - 13:10
DrgLena Цитата(100$ @ 14.02.2018 - 14:1... 14.02.2018 - 14:45
100$ Del 14.02.2018 - 16:31
DrgLena Del 14.02.2018 - 21:28
100$ Del 14.02.2018 - 23:26
DrgLena Del 15.02.2018 - 00:00
passant Цитата(DrgLena @ 15.02.2018 - 00:00)... 15.02.2018 - 13:00
100$ Del 15.02.2018 - 14:40
nokh Цитата(passant @ 15.02.2018 - 15:00)... 15.02.2018 - 14:52
100$ Del 15.02.2018 - 16:44
DrgLena Del 16.02.2018 - 01:18
100$ Цитата(DrgLena @ 16.02.2018 - 01:18)... 16.02.2018 - 11:15
DrgLena Цитата(100$ @ 16.02.2018 - 12:1... 16.02.2018 - 23:56
DrgLena Цитата(ЛенвГо ошко @ 17.02.2018 - 14... 18.02.2018 - 04:00
ЛенвГо ошко Цитата(DrgLena @ 18.02.2018 - 04:00)... 18.02.2018 - 14:09
DrgLena Цитата(ЛенвГо ошко @ 18.02.2018 - 15... 19.02.2018 - 09:28![]() ![]() |