Silly's randomization 2x2 xover [Regulatives / Guidelines]

posted by d_labes  – Berlin, Germany, 2012-06-18 18:30 (5110 d 08:27 ago) – Posting: # 8775
Views: 14,986

Dear both!

what about this one-liner (ok, ok its a 3-liner :cool:):
set.seed(123987)
nsubj <- 24
(c(rep("RT", trunc(nsubj/2)), rep("TR", nsubj-trunc(nsubj/2)))[sample(1:nsubj)])

Regards,

Detlew

Complete thread:

UA Flag
Activity
 Admin contact
23,654 posts in 4,992 threads, 1,571 registered users;
116 visitors (0 registered, 116 guests [including 13 identified bots]).
Forum time: 02:57 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