randomization: runs test [Regulatives / Guidelines]

posted by ElMaestro  – Denmark, 2012-06-16 16:48 (4749 d 21:55 ago) – Posting: # 8757
Views: 13,227

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,424 posts in 4,927 threads, 1,671 registered users;
18 visitors (0 registered, 18 guests [including 6 identified bots]).
Forum time: 14:44 CEST (Europe/Vienna)

Truth and clarity are complementary.    Niels Bohr

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