randomization [🇷 for BE/BA]
Hello Ana Cristina,
I am thinking you can play around with this:
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.
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
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
- OT: Sex / gender Helmut 2018-02-28 14:58
- OT: Sex / gender d_labes 2018-02-28 14:42
- Gender in crossover nobody 2018-02-28 10:14
- Updated R-code Beholder 2020-04-08 12:31
- Gender in crossover d_labes 2018-02-28 08:43
- Updated R-code Helmut 2018-02-27 17:06
- Simplified R-code Ana Cristina 2018-02-27 13:16
- Simplified R-code Helmut 2018-02-26 15:46