負の二項分布に基づいてさまざまなサイズのリストを生成

Question

負の二項分布で10回の試行が成功するまで、数字のシーケンス（すなわち0 0 1 0 1 0 1 ...）に基づいて複数のリストを作成しようとしています。私は明らかに私の現在のコードは、価値のある何かを取得していないとあまりにもよく、リスト機能を理解していないです：

z = as.list(supply(1:10, function(x) rnbinom(inf, 10, 1/x))) 

確率はでシーケンス1/Nごとに変化させるために必要があるのn = 1,2、... 10回の成功が起こるまで「実験」を続けると、Pr = 1であるので結果（「1 1 1 1 1 1 1 1 1 1 1 1」が最初のものになります）を列挙する必要があります。

Answer 1

rnbinomが実際に返すのは、一連の試行ではなく、シミュレートされた失敗の数です。したがって、ランダムな数の失敗に基づいてシミュレートするには、返された失敗の数だけ、repの失敗（0）、成功（9）のシャッフル、成功（10回）の終了が必要です。逆確率

lapply(1:10,function(x) c(sample(c(rep(1,10-1),rep(0,times=rnbinom(1,10,1/x)))),1)) 

---

のリストの別を適用するprob=0.5

c(sample(c(rep(1,10-1),rep(0,times=rnbinom(1,10,0.5)))),1) 

と例えば

は、試験自体の十分な数をシミュレートし、その後切り捨てることであろう所望の成功の数に比例する。

x <- rbinom(100,1,0.5) 
x[cumsum(x)<=10] 

適切な実装では、追加の試行をシミュレートして十分な成功を収めていないという極端なケースを処理します。