ダメ出し：確かめようと思えば，確かめることができるんだよ

rbinomのprob引数は複数評価してくれるっぽい　とか言ってるんだけど

「してくれるっぽい」ではなく，「してくれる」んだ
ちょっと確かめれば分かることだ

> set.seed(123)
> x <- rbinom(900, 10, prob = seq(0.001, 0.9, 0.001))
> set.seed(123)
> y <- sapply(seq(0.001, 0.9, 0.001), function(x) rbinom(1, 10, prob = x))
> all(x==y)
[1] TRUE