set.seed(1234)
rank.pool <- 1:10
a <- sample(rank.pool, 10)
b <- sample(rank.pool, 10)
c <- sample(rank.pool, 10)
rlist <- list(a, b, c)
init.p(rlist, length(unique(unlist(rlist))), 5, "cp")Run the code above in your browser using DataLab