R的随机化代码中存在逻辑错误
R的随机化代码中存在逻辑错误
提问于 2021-02-02 19:22:29
试验计划是每周有6名参与者，所以我们有6个区组大小。每周每个患者接受治疗"T“或"L”的机会应该相等。下面的代码只给了总共120个参与者相同的治疗(即T为60，L为60 ).But我希望它是这样的:对于每个星期，治疗应该是这样的: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"回答 1
Stack Overflow用户
回答已采纳
发布于 2021-02-02 22:08:15
你是说像这样的东西吗？
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"页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/66008724
复制相关文章
相似问题
腾讯云开发者
