randomization: runs test [Regulatives / Guidelines]

posted by ElMaestro  – Denmark, 2012-06-16 16:48 (5122 d 10:42 ago) – Posting: # 8757
Views: 15,212

Hi HS,

a quickie:

Scheme222=function(NSeq1, NSeq2, Seed, Sillyfactor)
{
   set.seed(Seed)
   A=c(rep("RT", NSeq1), rep("TR",NSeq2))

   for (j in 1:Sillyfactor)
   {
   swaps = sample(1:length(A), length(A), replace=T)
   for (i in 1:length(A))
   {
     tmp = A[i]
     A[i]=A[swaps[i]]
     A[swaps[i]]=tmp
   } ## i loop
   } ## j loop
   print(A)
}

Scheme222(12,12, 87654321, 123)


I have no idea why regulators strictly would not consider an alternating sequence random; I think they must have assumed the sequence had not been through a number-cruncher or NLYW?

Pass or fail!
ElMaestro

Complete thread:

UA Flag
Activity
 Admin contact
23,655 posts in 4,993 threads, 1,571 registered users;
138 visitors (0 registered, 138 guests [including 11 identified bots]).
Forum time: 03:31 CEST (Europe/Vienna)

Ignorance more frequently begets confidence
than does knowledge.    Charles Darwin

The Bioequivalence and Bioavailability Forum is hosted by
BEBAC Ing. Helmut Schütz
HTML5