rmultinom（） - しかし転置？

Question

ダミーを含む多連分布データフレームが必要です。確率は列に適用する必要があります。私は少し厄介なように次のコードを持っています。誰か良いアイデアはありますか？

set.seed(1234) 
data.table::transpose(data.frame(rmultinom(10, 1, c(1:5)/5))) 

# V1 V2 V3 V4 V5 
# 1 0 0 0 1 0 
# 2 0 0 0 0 1 
# 3 0 0 0 0 1 
# 4 0 1 0 0 0 
# 5 0 0 0 0 1 
# 6 0 0 0 0 1 
# 7 0 0 0 1 0 
# 8 0 1 0 0 0 
# 9 0 0 0 0 1 
# 10 0 0 0 1 0 

Answer 1

少し短く、複数の強制変換を必要としません。

data.frame(t(rmultinom(10, 1, c(1:5)/5))) 

または

library(data.table) 
data.table(t(rmultinom(10, 1, c(1:5)/5)))