2006-12-03 Randomize 統計 ある,遊びのコード. n <- 50 n.Groups <- 2 n.Rnd <- 20 key <- rep(seq(n.Groups), rep(n, n.Groups)) idx <- sample(seq(n*n.Groups), n.Rnd, replace=F) idx.rnd <- sample(idx, n.Rnd, replace=F) key[idx] <- key[idx.rnd]