>>394
ブートストラップ法を使えば可能。
https://i.imgur.com/DmoPnEw.png
s>4の確率は0.68が得られた。

library(simpleboot)
b=one.boot(0:9,mean,R=1e4)
BEST::plotPost(b$t,breaks=30,compVal = 4,xlab='')
mean(b$t>4)

詳しくは
https://www.cis.doshisha.ac.jp/~mjin/R/44/44.html
参照