Rでのプログラミング

Question

前提・実現したいこと

大学の宿題でどうしてもわからない問題があり、初めて質問させて頂きます。
問題の全文は以下の通りです。

(2)
A, B という二人の候補者がいる選挙があり, A の総得票数は m 票, B の総得票数は n 票であった
とする. また, この選挙の開票作業は投票箱から投票用紙を 1 枚ずつランダムに取り出して行われ,
取り出された用紙が A への票であったら A に 1 票加算され, B への票であったら B に 1 票加算さ
れる, という具合に行われるとする. このとき, m > n であれば, 開票作業中常にそれまでの A の
得票数が B の得票数を上回っている確率は
m − n
m + n
で与えられることが知られている. このことをモンテカルロ法によって確認せよ. 具体的には以下
の手順でモンテカルロ・シミュレーションを実行せよ.
(i) A, B それぞれの総得票数 m, n が与えられたときに, 上のような開票作業における, A, B それ
ぞれの得票数の推移を再現するシミュレーターを作成する.
(ii) m = 60, n = 40 とした場合に (i) で作成したシミュレーターを 10,000 回ランダムに繰り返す
シミュレーションを行い, 10,000 回中開票作業中常にそれまでの A の得票数が B の得票数を
上回っていた割合を計算する (答えは 0.2 に近い値となるはずである)

発生している問題・エラーメッセージ

この問題の(i)はかろうじて解けたのですが、(ii)のコードが分かりません

Answer 1

自己解決しました。下手な質問ですみませんでした。

Answer 2

宿題はご自分でやりましょう。

Comments

[matobaa]

回答じゃないことは「追記・修正依頼」でお願いします。