randomization: runs test [Regulatives / Guidelines]

posted by ElMaestro  – Denmark, 2012-06-16 16:48 (5113 d 01:04 ago) – Posting: # 8757
Views: 15,154

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,654 posts in 4,992 threads, 1,571 registered users;
135 visitors (0 registered, 135 guests [including 16 identified bots]).
Forum time: 17:53 CEST (Europe/Vienna)

Always listen to experts.
They’ll tell you what can’t be done and why.
Then do it.    Robert A. Heinlein

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