意外と知らない?: Rのrepeatコマンド
> x = cbind(c("seq1","seq2","seq3"),c(2,1,3)) > x [,1] [,2] [1,] "seq1" "2" [2,] "seq2" "1" [3,] "seq3" "3" > rep(x[,1],x[,2]) [1] "seq1" "seq1" "seq2" "seq3" "seq3" "seq3"
> x = cbind(c("seq1","seq2","seq3"),c(2,1,3)) > x [,1] [,2] [1,] "seq1" "2" [2,] "seq2" "1" [3,] "seq3" "3" > rep(x[,1],x[,2]) [1] "seq1" "seq1" "seq2" "seq3" "seq3" "seq3"