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

posted by d_labes  – Berlin, Germany, 2012-06-18 18:30 (4747 d 23:24 ago) – Posting: # 8775
Views: 13,064

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

Truth and clarity are complementary.    Niels Bohr

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