最初に r を使用して多項分布データを生成し、次にそのデータを「生の」形式で生成したいと考えています。たとえば、次の方法でデータを生成したとします。
set.seed(1)
df <- as.data.frame(cbind(rmultinom(1, 13, c(0.1, 0.3, 0.4, 0.2)), seq(from = 0, to = 3, by = 1)))
私は得る
V1 V2
3 0
2 1
4 2
4 3
次に、個々のレベルでベクトルのデータが必要なため、次のようになります
0, 0, 0, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3
これを行う簡単な方法はありますか？私はこれが初めてで、思ったほど簡単ではありませんでした。次のような関数を作成しようとしました
xcv <- vector(length = m)
asdf <- function(x, n){
for(i in 1:n){
xcv[j] <- seq(from = x[i,2], to = x[i,2], length.out = x[i,1])
}
return(xcv)
}
これはまったく機能しませんでしたので、助けていただければ幸いです。