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上的文档，我感觉这个包不允许直接计算。

Answer 1

据我所知，你不能完全理解这一点，但你可以接近。x是一个 S4 对象，您感兴趣的插槽是paccept和pd。我们可以得到所有pd值中最接近0.1 的paccept值：paccept

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