(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 с помощью значения paccept , ближайшего к 0,1 из всех значений 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