r - (R) 確率 0.1 の合格での母集団不良率の検出

Question

次のRコードを使用しています：

library(AcceptanceSampling)

x <- OC2c(50, 2, type="hypergeom", N=4000)
plot(x, xlim=c(0,0.2))

プロットを生成します：

P(accept)（Y軸）が0.1のときの比率を求めたいと思います。Rでこれを行う方法はありますか？https://cran.r-project.org/web/packages/AcceptanceSampling/AcceptanceSampling.pdfのドキュメントによると、このパッケージではそれを直接計算することはできないと感じています。