CODEWITHSUNDEEP
rpermutation
Ebrima Comma
Ebrima Comma

Reputation: 3

Logical error in my Randomization code for R

The trial plan is to have 6 participant per week, so we have a block size of 6. Each week there should be equal chance of each patient receiving either Treatment "T" or "L". The code below only gives equal number treatment for a total of 120 participants,( ie 60 for T and 60 for L).But I want it like this: for each week, treatment should be like :TTTLLL,LTLTTL,LLTTLT etc. Below is my code:

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"

Upvotes: 0

Views: 70

Answers (1)

r2evans
r2evans

Reputation: 160437

Do you mean something like this?

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"

Upvotes: 2

Related Questions