1

私はいくつかのデータを作成しようとしています。まず、公正なコインを 40 枚投げます。表が出るコインごとに、つまり 1 枚の公正なコインをもう 1 枚投げたいと思います。

rbinomステートメント内で使用ifelseするとうまくいくと思いましたが、奇妙な結果のように見えます。

これが私のコードでaa、最初の 40 枚のコインを弾いた結果を表し、着地しccた表の各コインに対して 2 枚目のコインを弾いた結果を表していると思いました。aa

以下のステートメントを数回繰り返すifelseと、2 つの結果のいずれかが得られます。の最初の結果は の結果とcc一致しaa、2 番目の結果はすべて 0 です。これらの結果は当惑しています。何が起こっているのかについてのアドバイスや説明をありがとう。

set.seed(1234)

aa <- rbinom(40, 1, 0.5) ; aa
# [1] 0 1 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 1 1
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 1 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 1 1
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 1 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 1 1
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 1 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 1 1
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
cc <- ifelse(aa == 1, rbinom(1, 1, 0.5), 0) ; cc
# [1] 0 1 1 1 1 1 0 0 1 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0 0 0 1 0 1 0 0 1 1
4

2 に答える 2