定石を使おう

同じく「5/30　MIKUセミナー」について

result <- lapply(mapply(rep, 0, seqs), unique)

何をやろうとしているか，上のプログラムを見るだけでわかるだろうか？
私にはわからなかった。

result <- vector("list", seqs)

のようだ。

temp_res <- rep(0, use_amino)

これはよく見かけるけど，

temp_res <- numeric(use_amino)

がより直裁的。