"
【たばこ】喫煙率 男女合わせて16.7％(男性27.1％ 女性7.6％)　調査開始以降最低に [ばーど★]
厚生労働省は去年11月、全国の20歳以上の男女およそ5700人を対象に、生活習慣などを調査しました。
16.7*(m+f)=27.1*m + 7.6*f
x=m/f
16.7(x+1)=27.1*x + 7.6
solve 16.7(x+1)=27.1*x + 7.6 for x
x=8/7
"
5700*(8/15)
5700*(7/15)

# 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*8/15,Male),c(5700,(Male+Fem)))
poisson.test(c(5700*8/15,Male),c(5700,(Male+Fem)))