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

# https://www.stat.go.jp/data/jinsui/pdf/201802.pdf
Male=sum(c(321,320,359,396,473,482,413,380,380,470,372,301,218,120,43,7,1))*1e4
Fem=sum(c(303,305,346,385,460,471,408,381,391,502,421,373,315,226,118,35,6))*1e4
prop.test(c(5700*7/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*7/15,Male),c(5700,(Male+Fem)))

p=Male/(Male+Fem)
binom.test(5700*7/15,5700,p)