Bioequivalence and Bioavailability Forum • randomization

randomization [🇷 for BE/BA]

posted by ElMaestro – Denmark, 2018-02-24 18:32 (2615 d 16:08 ago) – Posting: # 18457
Views: 19,778

Hello Ana Cristina,

I am thinking you can play around with this:




Ana.Cristinas.Randomizer2=function(Seed, N, WriteFile=F)

{

  if (N %% 4 != 0) {cat("N not divisible by four.!\n");return("Error.")}

  Gender=rep(c("F", "M"), N/2)

  Subject=c(1:N)

  Seqx=c(rep("TR", N/2), rep("RT", N/2))

  SeqF=sample(Seqx, replace=F)

  SeqM=sample(Seqx, replace=F)

  Seq=NULL

  for (i in 1:(N/2)) Seq=c(Seq, SeqF[i], SeqM[i])

  TrtP1=substr(Seq,1,1)

  TrtP2=substr(Seq,2,2)

  Rslt=data.frame(Subject, Gender, Seq, TrtP1, TrtP2)

  L1=paste("\n\nDate: ", format(Sys.Date(), format="%B %d %Y"), 

     " Seed=", Seed, "\n\n", sep="")

  L2="\n\n\n\n\n______________________________\n"

  L3="Signature, date\n"

  if (WriteFile)

  {

    FN=paste(format(Sys.Date(), format="%B %d %Y"), " ", Seed,".txt", sep="")

    sink(file=FN)

    cat(L1)

    print(Rslt, row.names=F)

    cat(L2)

    cat(L3)    

    sink()

  }

  cat(L1)

  print(Rslt)

  return("Success.")

}



##can be run with e.g.

Ana.Cristinas.Randomizer2(12341234, 16, TRUE)

When the last argument is TRUE the function will print the randomisation code into a text file which is dated, contains the seed and which you can print and date+sign by hand. The filename is unique to the combination of date and seed.

—
Pass or fail!
ElMaestro

Complete thread:

randomization Ana Cristina 2018-02-23 21:33
- randomization ElMaestro 2018-02-23 22:24
- randomization Ana Cristina 2018-02-24 16:47
  - randomizationElMaestro 2018-02-24 17:32
  - package randomizeBE for R on steroids Helmut 2018-02-24 17:52
  - Randomization of gender d_labes 2018-02-26 11:56
    - Simplified R-code Helmut 2018-02-26 15:46
      - Simplified R-code Ana Cristina 2018-02-27 13:16
        
        Updated R-code Helmut 2018-02-27 17:06
        
        Gender in crossover d_labes 2018-02-28 08:43
        
        Gender in crossover nobody 2018-02-28 10:14
        
        Sex in crossover Helmut 2018-02-28 12:42
        
        Sex in crossover Helmut 2018-02-28 12:27
        
        OT: Sex / gender d_labes 2018-02-28 14:42
        
        OT: Sex / gender Helmut 2018-02-28 14:58
        
        OT: Sex / gender Ana Cristina 2018-03-01 03:16
        
        Updated R-code Beholder 2020-04-08 12:31