同じく「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)
がより直裁的。
同じく「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)
がより直裁的。
簡潔で勉強になります。