我的 R 随机化代码中的逻辑错误
Logical error in my Randomization code for R
试验计划是每周有 6 名参与者，因此我们的块大小为 6。每周每个患者接受治疗“T”或“L”的机会应该相等。下面的代码只对总共 120 名参与者给予同等数量的处理，（即 T 60 和 L 60）。但我想要这样：
每周，治疗应该像：TTTLLL、LTLTTL、LLTTLT 等。
下面是我的代码：
library("randomizeR")
N <- 120
K <- 2
groups <- c("T","P")
par <- pbrPar(N,K,groups = groups)
R<- genSeq(par)
getRandList(R)
saveRand(R,file = "C:/Users/dataList.csv"
你的意思是这样的吗？
N <- 120
set.seed(2021)
apply(replicate(N, sample(c(rep("L",3), rep("T",3)))), 2, paste, collapse = "")
# [1] "TLLTTL" "LTTTLL" "TLTLLT" "TLLTTL" "TLLLTT" "LLLTTT" "TLLTTL" "LTLTTL" "TLTLLT" "LLTLTT" "LTLTTL" "TLLLTT" "LTLTTL" "TLTLTL" "TLLTTL" "LLLTTT" "TLLTTL" "TLLTTL" "LLTTTL" "TLTLLT" "TLLTTL"
# [22] "TTLLTL" "LTLTLT" "TTLLTL" "TTTLLL" "TLLTLT" "LTLTLT" "TTLLTL" "TTLLTL" "LLTTTL" "TTLLLT" "TTLTLL" "LTLTLT" "TLLTTL" "TTLLLT" "LLTLTT" "LLTLTT" "LLTTLT" "TLTLTL" "TLTLTL" "LLLTTT" "LLTTTL"
# [43] "TTLLLT" "TTTLLL" "TTTLLL" "TLLTTL" "TLTLLT" "TTLLLT" "TLLTLT" "LLTTLT" "TLTLTL" "LLTTTL" "TTTLLL" "TLLLTT" "TLLLTT" "TTLLLT" "LTLTLT" "TTLLTL" "LTTTLL" "TLLTLT" "LLTTLT" "LTLLTT" "LTTLTL"
# [64] "LTLTTL" "LTLLTT" "LTLLTT" "LLTLTT" "LTTLLT" "LTTLLT" "TLTLTL" "TLTLLT" "LTLTLT" "TLTLLT" "LTLTTL" "TTLLTL" "LLLTTT" "LTLTTL" "LTLTLT" "TLTTLL" "TLLTLT" "LTTLTL" "LTLLTT" "TTLLLT" "TTTLLL"
# [85] "TLLTTL" "LTLTTL" "LLTTTL" "LLTLTT" "TLLTLT" "LTTTLL" "LTTTLL" "LTLTLT" "LTTLLT" "TTLTLL" "LLLTTT" "LTLTTL" "TLTLTL" "LTTLTL" "LLTTTL" "TLTLLT" "TTLLLT" "LTTTLL" "LTTLTL" "TLLTTL" "TTLLLT"
# [106] "LLTLTT" "LLTLTT" "TLLLTT" "LLLTTT" "LTLTTL" "TTTLLL" "TLLLTT" "TTLLLT" "TLTTLL" "TLLTLT" "LTTLTL" "LLLTTT" "LTLTTL" "LLTLTT" "TTLTLL"
试验计划是每周有 6 名参与者，因此我们的块大小为 6。每周每个患者接受治疗“T”或“L”的机会应该相等。下面的代码只对总共 120 名参与者给予同等数量的处理，（即 T 60 和 L 60）。但我想要这样： 每周，治疗应该像：TTTLLL、LTLTTL、LLTTLT 等。 下面是我的代码：
library("randomizeR")
N <- 120
K <- 2
groups <- c("T","P")
par <- pbrPar(N,K,groups = groups)
R<- genSeq(par)
getRandList(R)
saveRand(R,file = "C:/Users/dataList.csv"
你的意思是这样的吗？
N <- 120
set.seed(2021)
apply(replicate(N, sample(c(rep("L",3), rep("T",3)))), 2, paste, collapse = "")
# [1] "TLLTTL" "LTTTLL" "TLTLLT" "TLLTTL" "TLLLTT" "LLLTTT" "TLLTTL" "LTLTTL" "TLTLLT" "LLTLTT" "LTLTTL" "TLLLTT" "LTLTTL" "TLTLTL" "TLLTTL" "LLLTTT" "TLLTTL" "TLLTTL" "LLTTTL" "TLTLLT" "TLLTTL"
# [22] "TTLLTL" "LTLTLT" "TTLLTL" "TTTLLL" "TLLTLT" "LTLTLT" "TTLLTL" "TTLLTL" "LLTTTL" "TTLLLT" "TTLTLL" "LTLTLT" "TLLTTL" "TTLLLT" "LLTLTT" "LLTLTT" "LLTTLT" "TLTLTL" "TLTLTL" "LLLTTT" "LLTTTL"
# [43] "TTLLLT" "TTTLLL" "TTTLLL" "TLLTTL" "TLTLLT" "TTLLLT" "TLLTLT" "LLTTLT" "TLTLTL" "LLTTTL" "TTTLLL" "TLLLTT" "TLLLTT" "TTLLLT" "LTLTLT" "TTLLTL" "LTTTLL" "TLLTLT" "LLTTLT" "LTLLTT" "LTTLTL"
# [64] "LTLTTL" "LTLLTT" "LTLLTT" "LLTLTT" "LTTLLT" "LTTLLT" "TLTLTL" "TLTLLT" "LTLTLT" "TLTLLT" "LTLTTL" "TTLLTL" "LLLTTT" "LTLTTL" "LTLTLT" "TLTTLL" "TLLTLT" "LTTLTL" "LTLLTT" "TTLLLT" "TTTLLL"
# [85] "TLLTTL" "LTLTTL" "LLTTTL" "LLTLTT" "TLLTLT" "LTTTLL" "LTTTLL" "LTLTLT" "LTTLLT" "TTLTLL" "LLLTTT" "LTLTTL" "TLTLTL" "LTTLTL" "LLTTTL" "TLTLLT" "TTLLLT" "LTTTLL" "LTTLTL" "TLLTTL" "TTLLLT"
# [106] "LLTLTT" "LLTLTT" "TLLLTT" "LLLTTT" "LTLTTL" "TTTLLL" "TLLLTT" "TTLLLT" "TLTTLL" "TLLTLT" "LTTLTL" "LLLTTT" "LTLTTL" "LLTLTT" "TTLTLL"