（R） 发现概率为0.1的人口缺陷比例

我正在使用以下R代码：

library(AcceptanceSampling)

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

库（验收抽样）
据我所知，你不能准确地得到这个，但你可以接近它
x
是一个S4对象，您感兴趣的插槽是
paccept
和
pd
。我们可以获得
pd
值，其中
paccept
值最接近所有
paccept
值中的0.1：

idx <- which.min(abs(x@paccept - 0.1))
round(cbind(paccept = x@paccept[idx], pd = x@pd[idx]), 3)
#      paccept  pd
# [1,]    0.11 0.1

idx太快了！谢谢你的见解，我会记下来的。我还试图通过获得操作特征方程的根来求解，但同样，能够给出解的库只能给出近似值。。