底辺私立医大を卒業した医者って頭悪いよね？ Part15

"n(=10)人の中から無作為にm(=2)人選んだらその中に少なくとも一人の感染者がいた。
全体で何人の感染者がいるかの期待値を求めよ。"
fn <- function(n,m){
x=0:n
pmf=1- choose(n-x,m)/choose(n,m)
pdf=pmf/sum(pmf)
sum(x*pdf)
}
fn=Vectorize(fn)
fn(10,2)
plot(0:100,fn(100,0:100),bty='l',type='l')